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ABSTRACT 

This report presents a detailed description of a computer 
program to calculate tilt-rotor aircraft dynamic characteristics. 
This program (named ROTOR) consists of t^iro separate parts . In 
the first part, the natural frequencies cind corresponding mode 
shapes of the rotor blade and wing are developed from structural 
data (mass distribution and stiffness distribution) . The second 
part of the program deals with the frequency response (to gust 
and blade pitch control inputs) and eigenvalues of the tilt- rotor 
dynamic system, based oh the natural frequencies and mode shapes 
derived beforehand. Sample problems are included to assist the 
user. 
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SECTION 1 


INTRODUCTION 


1.1 Purpose and Scope 

Program ROTOR is an in-core program written in FORTRAN IV 
language for analysis of the dynamic characteristics of the tilt- 
rotor aircraft. 

The analytical model considered here consists of a cantilevered 
semispan wing with the engine- rotor system at the wing tip (see 
Fig. 1 of Ref, 1) . The dynamic and aeroelastic characteristics of 
this aircraft are in many ways unique and complicated. The large 
flexible blades with a large amount of twist have significant 
coupling between flapping and lagging motion. The engines and 
gearboxes at the wing tip lead to low wing natural frequencies 
and possible resonances in the low frequency range. 

The purpose of this program is the numerical analysis of the 
complicated dynamic and aeroelastic behavior of the tilt-rotor 
aircraft. The first step is the derivation of the equations of 
motion of the blade and the wing, including inertia forces, blade 
aerodynamic forces and wing aerodynamic forces. This formulation 
is described in detail in Ref, 1, Based on the equations of 
motion, the frequency response of the blade and wing motions to 
the gust input or blade pitch angle control input are derived. 

An eigenvalue analysis provides the system stability character- 
istics, 

1.2 Program Outline and Limitatigns 

Program ROTOR consists of two separate parts. One is called 
FREEVl ( free vibration of the tilt-rotor aircraft) , which pro- 
duces the natural frequencies and mode shapes of the free vibra- 
tion from the blade or from the wing structural characteristic 
data. The second part is named TILDYN ( til t- rotor dyn amics) 
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which calculates tlie dynamic characteristics of the aircraft, in- 
cluding eigenvalues and frequency response to the gust and to 
the pitch-control inputs. 

The reason for the separation of the program into two parts 
is that this system gives the user the opportunity to check the 
results for the natural frequencies and mode shapes without per- 
forming the entire calculation. In addition, the dynamic charac- 
teristics can be evaluated easily by changing the input natural 
frequencies or using different assumed modes without changing the 
structural characteristics, mass distribution, or stiffness dis- 
tribution, The disadvantage is that the input data for TILDYN 
are the output data of FREEVI. 

The free vibration problem of the wing and blade is solved 
as an eigenvalue problem in FBEEVI by the finite element method. 

The wing has three degrees of freedom, vertical bending, chord- 
wise bending and torsion, A large wing tip mass represents the 
rotor, engine, and gearbox. 

Only flapping and lagging motions are considered for the blade. 
Torsion is neglected as a higher-order effect for the blade case. 

The rotor types treated here are the hingeless rotor and the 
gimballed rotor. The maximum number of elements is limited to 
twenty , 

With respect to the TILDYN program, it should be mentioned that 
the flight configuration is restricted to cruising flight only, 
with the rotor disk plane perpendicular to the free stream. Both 
powered and autorotation cases can be treated. Total degrees of 
freedom considered are nine or eighteen for powered flight. The 
nine degrees of freedom consist of blade flapping and lagging 
fundamental modes (each has a collective and two cyclic degrees of 
freedom) and wing vertical bending, chordwise bending, and torsion 
modes. The eighteen degrees of freedom include two additional 
blade modes and three additional wing modes. It should be noted 
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that description of the blade motion requires three independent 
degrees of freedom to reduce one equation with periodic coeffi- 
cients in the rotating system to three equations with constant 
coefficients in the non-rotating sfSstem, 

In the autorotation case, one more degree of freedom is 
added, the rigid body rotation of the rotor, and the total degrees 
of freedom become ten or nineteen. After the construction of the 
equations of motion for each case, the frequency response problem 
is solved. The excitation inputs consist of the following: ver- 

tical gust, lateral gust, longitudinal gusb, collective-blade 
pitch control and two cyclic blade pitch controls. By appropri- 
ately specifying the excitation input components, the flight in a 
cross-wind gust can be considered. 

The eigenvalue problem to be solved is the usual eigenvalue 
problem of a linear system of equations. The EISPACK subroutine 
developed by the Argonne Code Center is used to treat this prob- 
lem (Refs. 2 and 3) . 
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SECTION 2 


DESCRIPTION OF THE PROGRAMS 

2«1 Description of the FREEVI Program 

This program consists of one main program and twelve sub> 
routines for the computation of the lowest few eigenvalues and 
eigenvectors of the proprotor dynamic system modelled by the 
finite-element method , as described in Ref. 1. The outline flow 
chart is shown in Fig. 1. 

Input data include element-structural characteristics (mass 
distribution, stiffness distribution and angle of twist) , rota- 
tional speed, and some instruction data for the computation. The 
boundary conditions are automaticalXy chosen when the calculation 
case is selected appropriately. Boundary conditions and degrees 
of freedom are tabulated in Table 1 for the rotor and wing. Next, 
the element stiffness and mass matrices are assembled globally. 
From the input information, the boundary conditions are imposed 
on the global system. The subspace iteration method is applied 
to find the eigenvalues and eigenvectors of the system (Refs. 4 
and 5) . Consider the eigenvalue problem of the n-degree-of- 
freedom equations: 

[K] [ u] = A [M] [i^] (2.1) 

where [K] and [M] are square stiffness and mass matrices with 
order n, [u] is a matrix of the mode shape and X is an eigenvalue. 
When m eigenvalues and eigenvectors are required, the main steps 
of the subspace iteration method are as follows: 

(a) Assume mode shape matrix 1^^] ; nxm matrix containing 
m vectors 

(b) [Mj^] == [u^] y [Kj^l - [Uq]'^[KHu^) where [M^] 

and [K^] are reduced square matrices with order m. 
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(c) Find eigenvectors [A] (mxm matrix) such that [K ] [A] = 

[D] [Mj^l [A] , with [D] denoting a diagonal matrix, 

(d) [u^] = [u^HAl 

(e) [n^] = tKl'^lM)[u^] 

(f) (Uq] = [Uj^l and go to step (b) 

The eigenvalue analysis of the smaller system (order m) in 
step (c) is achieved by using the Jacobi method. The criterion 
of terminating the iteration is defined as 

£ e ( 2 . 2 ) 

Each eigenvalue must satisfy this criterion? the error threshold 
e can be defined by the user. 

Output includes the input data, the eigenvalues, the eigen- 
vectors, and, if required, punched-out cards of the eigenvectors, 
A built-in message as to whether convergence was achieved is also 
furnished. 

A short description of each of the subroutines is given below: 
MAIN Defines dimensions 

TEX6EN Calculates the normal modes and frequencies 
INPUT Supplies input information 

ELEMK Controls the generation of element stiffness 
and mass matrices 

MESH Calculates mesh information for the finite 
element assemblage 
ASBV Applies boundary conditions 
FAC Triple matrix factorization 
MTRTR Matrix multiplicatipn 
MULTZ Matrix multiplication 
SOLZ Forward and backward svibstitution 
DNROOT Eigen- analysis routine 

EIGEN Eigen-analysis routine needed in DNROOT 
OUTPUT Output routine 
The listing is shown in Appendix A. 
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2,2 Description of the TILDYN Program 

This program to solve the equations of motion of the tilt-rotor 
aircraft derived in Ref, 1, consists of one main program and twenty- 
four subroutine programs. The outline flow chart is shown in 
Fig. 2. 

Input data are natural frequencies and corresponding mode 
shapes of the rotor and wing, aerodynamic coefficients, and flight 
conditions . 

Based on such input data, the coefficients of the equations of 
motion are derived, using the numerical integration method. Finally, 
the equation!? of motion are formulated as a matrix; 

[A] |x) + [b] (ij + [c] {■i) = [o] (ej (2.3) 

[A], [B] , [C] , and [D] are the coefficient matrices, including 
inertia terms and aerodynamic terms. The matrix {x} is a set of 
variables and {c} an exciting force matrix including gust com- 
ponents a'hd blade pitch-control components (see Ref, 1) , These 
equations have nine or eighteen degrees of freedom in the powered 
flight case. In the autorotation flight case, ten or nineteen 
degrees of freedom are required, due to the addition of rigid-body 
rotation (see Table 2) , 

The dynamic characteristics of these equations are analyzed by 
two methods. One is the frequency- response analysis and the other 
is the eigenvalue analysis. In the frequency-response analysis, 
the accelerations and velocities of the equations are expressed in 
terms of a given frequency, and the differential equations are 
transformed into a set of linear algebraic equations. These linear 
equations are solved by the Gauss-Jordan reduction to obtain the 
response to the gust or blade pitch-control input. 

The eigenvalue problem is formulated in the usual way. Equa- 
tion 2.3 is rewritten 
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(2.4) 
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to obtain first-order differential equations. The real general 
matrix eigenvalue problem is solved by the EISPACK package, de- 
veloped by Argonne National Laboratory to solve a standard matrix 
eigenvalue-eigenvector problem (Refs. 2 and 3), 

A short description for each of the siibroutines of the TILDYN 
program is given belov;j 


MAIN 

BLOCK DATA 

INITIL 

COEFF 

INPUT 

INTPL 

AERO 

ORDINT 

INTEG 

F 

AINER 

AEROMT 

EQMTX 

AUTO 


Defines the sequence of the program 
Initializes the coefficients of Gaussian 
quadrature 

Initialization of the matrices 
Defines the points and coefficients of the 
Gaussiam quadrature 
Supplies input information 

Interpolation for the numerical integration 
by Gaussian quadrature 

Defines the aerodyncunic coefficients at the 
points of Gaussiem quaurature 

Defines the order of the nxiraerical integration 

Numerical integration 

Defines the integrand function 

Defines the inertia coefficients of the 

equations in matrix form 

Defines the aerodynamic coefficients of the 
equations in matrix form 

Defines the coefficient matrices [A] , [B] , 

[C] , and [p] in Eq. 2.3. 

In the autorotation case, another degree of 
freedom is added 
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GUSTCO 

FRQRES 

GAELI 

EIGEN 

EIPACK 


BALANC 

ELMHES 

ELTRAN 

HQR2 

BALBAK 

MINV 


Defines gust and blade pitch control components 
Calculates the frequency response 
The Gauss-Jordan reduction routine 
Routine to form the eigenvalue problem emd to 
call EIPACK subroutine 

An eigensystem problem solver for the real 
general matrix consisting of EISPACK sub- 
routine BALANC, ELMHES, ELTRAN, HQR2 and 
BALBAK 

Balances a real general matrix and isolates 
eigenvalues whenever possible 
Obtains an upper Hessenberg matrix from a 
real general matrix 

Accumulates the elementary similarity trans- 
formations for the reduction to upper 
Hessenberg form 

Finds the eigenvalues and eigenvectors 
Forms the eigenvectors by back-trans forming 
those of the corresponding balanced matrix 
determined by BALANC 
Inverses a matrix 


The listing is shown in Appendix A^ 



SECTION 3 


USER'S GUIDE FOR FREEVI PROGRAM 


3,1 Input Da^a Requirements 

The input and output of the computer code is a part of the 
built-in program with fixed format. This approach requires a 
minimum knowledge of the programs and programming. 

The finite-element model for the input data is shown in Fig. 3. 
The structure is divided into several elements for application of 
the finite-element method. The mass distribution, bendinq and 
torsional stiffness, and angle of twist are the average values in 
the element. The unit system used should be consistent throughout 
the entire program. 

This program calculates the natural frequencies and normal 
modes for five cases , including wing vibration and blade vibration 
with various boundary conditions (see Table 1) . The parameter 
ICASE specifies the particular case in the program. The pareuneter 
IPUNCH specifies whether a punched card deck of the mode shapes is 
required for input to the program TILDYN, 

Uncoupled mode shapes , instead of coupled mode shapes , can be 
generated, if necessary. The parameter IGUEST controls the initial 
assumed values for the purpose of generating the uncoupled mode 
shapes . 

The value of M expresses the number of eigenvalues and mode 
shapes required by the user. 

Parameters and variables are described in detail below : 

DES A vector to express the test identifying information. 

The user can punch the run identification in the 
first column through the eightieth column of the 
first Card. The format is 20A4. 
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ICASE A parameter to specify the calculation case; 

ICASE=1; wing case with clamped boundary 
conditions at the root, 

ICASE=2y blade case with boundary conditions 
clamped for the flapping motion and 
clamped for the lagging motion at 
the root, 

ICASE=3; blade case, clamped for flapping and 
hinged for lagging, 

ICASE==4 ; blade case, hinged for flapping and 
clamped for lagging, 

1CASE=5; blade case, both hinged boundary 
conditions. 

It is punched in the integer format as II in the 
first column of Idle second card, 

IPUNCH A parameter to control whether the mode shapes are 

punched out in cards for input to the TILDYN program. 
IPUNCH=0 ; no punched output 
IPUNCH=1 ; punched output 

The parameter is punched in the integer format as 
II in the first column of the third card. 

IGUEST A parameter to control the mode-shape type coupled 
or uncoupled, both for the blade and the wing, 
IGUEST=0; coupled 

IGUEST=1; uncoupled vertical bending (w) 

IG0EST=2 ; uncoupled chordwise bending (v) 
IGUEST=3; uncoupled torsion (({>) 

It should be noted that the terms PB, RAMDA, COL 
and THETAE related to coupled motion should be 
set to zero when uncoupled mode shapes are required. 
The parameter is punched in i;he integer format as 
II in the first column of the fourth card. 
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NET 


NITR 


M 


ERR 


OMEG 


R&MDA 


Total number of elements, maximum number is 20. It is 
punched out in the integer format as 15 in the first 
through fifth columns in the fifth card. 

The maximum number of iterations to be performed. If 
the number of iterations reaches NITR, yet the itera- 
ation is not converged, the program execution is termi- 
nated cuid a built-in message appears. Recommended 
value for NITR is 20, It is punched in the integer 
format as 15 in the 6th through the 10th columns of 
the fifth card. 

Number of vibration modes required by the user. Recom- 
mended value for M is less than 10. If M = 10 to 20, 
NITR is recommended to be 50, 

The error limit used to compare with [ » 

where is the eigenvalue calculated at the ith itera- 
tion cycle. The iteration terminates if the calculated 
value is smaller than ERR, Recommended values for ERR 
are 0.001 to 0,01. It is punched in the real value 
format (F10,6) at the first through 10th columns of the 
sixth card. 

Rotational speed H in rad/sec, the direction of rota- 
tion is positive for the upv/ard rotational vector 
when the aircraft configuration is in the helicopter 
mode. For the wing or non-rotating blade it is set 
to zero. It is punched in real value format (FlO.6) 
in the first through the 10th columns of the seventh 
card. 

Inflow ratio X is defined as (V + v)/nR. It determines 
the collective pitch of the blade. 

For the wing and non*- rotating blade, it is set to 
zero. It is punched in real value format (F10.6) 
in the first through the lOth columns of the 8th card. 
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COL 


SPKB 


SPKC 


ALPHAH 


ELBE 


EIGE 


Collective pitch angle in radians { 0^ in Ref. 1), For 
the wing case it is set to zero. It is punched in real 
value format (F10,6) in the first through the 10th 
columns of the 9th card. 

The flapwise spring constant at the root of the hinged 
rotor. If there is no spring, it is set to zero. It 
is punched in real value format (F10,6) in the 1st 
through the 10th columns of the 10th card. 

The lagwise spring constant at the root of the hinged 
rotor. If there is no spring, it is set to zero. It 
is punched in real value format {FlO.6) in the 11th 
through 20th columns of the 10th card. 

The number is used to avoid a singularity of the 

stiffness matrix in the case of the hinged blade. 

The recommend value for ALPHAH is the squared 
2 

value (X ) of the first non- zero eigenvalue. The 
value 5000,0 is appropriate for the first tricil. 

It is punched in real value format (F10.6) in the 
first through the 10th columns of the 11th card. 

A vector to express the vertical bending stif fr ess 
(EI)g of the element. The length of the vector 
equals NET. It is pxinched in the exponent format 
(E15.7) and five data items can be included per 
card. These data occupy the 12th card through 
card [10+ {NET/5)] if NET is a multiple of 5, 

Otherwise, up to card [11+ (NET/5)] is occupied, 

A vector to express the chordwise bending stiff- 
ness (EI)^ of the element. The length of the vec"- 
tor is NET. It is punched in the exponent format 
(E15.7) and five data items cawi be included in a 
card. These data occupy (NET/5) cards if NET 
is a multiple of 5, otherwise [1+ (NET/5)] cards. 
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THETAE 


AMASE 


ESE 


AMN 


FIR 


A vector to express the angle of twist 6^^ in radians 
of the structure element, positive nose up, it should 
be the average angle of twist over the element. The 
length of the vector is NET, Eight data items can be 
punched in real value format (F10.6) in each card. 

These data occupy (NET/8) cards if NET is a multiple 
of 8, otherwise [1+(NET/8)1 cards, 

A vector to describe the mass distribution (mass/unit 
length) ; its length is NET, It is punched in real 
value format (FlO.6) , 8 data items on one card. These 
data occupy (NET/8) cards if NET is a multiple of 8, 
otherwise [l+(NET/8)] cards, 

A vector to define the size of the beam element 
of the blade or wing cuid its length is NET. 

It is punched in real value format (FlO.6) , 8 
data items on a card. These data occupy (NET/8) 
cards if NET is a multiple of 8, otherwise 
[1+ (NET/ 8)1 cards. 

The numbe.r to express the tip mass. In the case of the 
wing, it includes the nacelle and all blade mass as 

AMN = Mjj + NMg 

in the symbols of Ref, 1, If a tip mass exists in the 
blade, it is also appropriate to use AMN. It is punched 
in real value format (FlO.6) in the first through the 
10th columns of the card. The next four numbers FIR, 
PIY, PIP and PBW are punched on the same card with AMN. 

A number to express the rolling moment of inertia of the 
nacelle and blades at the wing tip: 


PIR = ip + Nig 
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The format is (FlO.6) and it is punched from the 11th 
to 20th columns. 

PIY A number to express the yawing moment of inertia of the 

nacelle and blades at the wing tip: 

PIY = I + f Ig + NM^h^ 

y 

The format is (FlO.6) and it is punched from the 21st to 
the 30th columns • 

PIP A number to express the pitching moment of inertia 

of the nacelle and blades at the wing tip: 

PIP . Ip + I I3 + NMgh^ 

P 

The format is (FlO.6) and it is punched from the 
31st to the 40th columns. 

PBW A number to express the mass coupling effect at the 

tip between the wing vertical bending and the tor- 
sion due to blade mass: 

PBW = NMgh 

The format is (FlO.6) and it is punched from the 
4 1st to the 50th columns. 

If the calculation case is the wing (ICASE=1) , the next 

three data cards should be added: 

GiT A vector to express the torsional rigidity: 

its length is NET. The format is (E15.7) and 
five data items can be included in a card. 

These data occupy (nET/ 5) cards if NET is a 
multiple of 5 , o-therwise [1+ (NET/5) 3. 

PI A vector to express wing mass moment of inertia 

about the elastic axis per unit length: its 
length is NET. The format is (E15.7) and five 
data items can be included in a card. These 
data occupy (NET/5) cards if NET is a multiple 
of 5, otherwise (1+ (NET/5)]. 
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PI12 


A vector to express wing static mass moment of 
the segment to define the coupling motion be- 
tween wing vertical bending and torsion. The 
vector length is NET and the format is (E15.7) . 

Five data items can be included in a card and 
data occupy NET/5 cards if NET is a multiple of 
5, otherwise [1+ (NET/5)]. 

The data deck setup is shown in Fig. 5 and the example problem 
data listing is XJ* Appendix B. 

A few remarks will now be stated to avoid misuse of the pro- 
gram: 

1) A consistent unit system must be adopted. 

2) The maximum element number (NET) is 20. 

3) Appropriate rotor rotational direction must be 
chosen. If OMEG is negative, RAMDA (inflow ratio) 
should be negative. However, COL (the collective 
pitch) and THETAE (angle of twist) should be posi- 
tive nose up. 

4) If uncoupled mode shapes are required, the coupling 
terms suCh as RAMDA, COL, THETA, PBW and PI12 should 
be set to zero. 

5) If there are several cases to be dealt with, the data 
may consist of several data sets. After the execution 
of the first case, the computer automatically returns 
to the beginning of the program and reads the second 
input data set. Therefore, at the end of the entire 
calculation, the computer notes the absence of data 
sets and generates an error message. 


Output Features 


All input data are printed out for checking. The built-in 
messages and outputs in the FREEVI program are as follows: 

(a) TENSION DDE TO CENTRIF. FORCE 

This prints out the tension force at each nodal 
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(b) MASS = O.XXXXXEXXX 

This indicates the total mass of the blade or wing^ 

(c) MOMENT OF INERTIA AT ROOT = O.XXXXXEXXX 

This gives the mass moment of inertia of the blade 
or wing about the virtual hinge at the root, 

(d) MAX. SIZE OF STF IS XXX SPECIFIED SIZE IS XXX 

This prints out the specified value of the estimated 
length of the stiffness matrix and the actual re- 
quired value for the stiffness matrix. If the speci- 
fied value is smaller, the program stops. Check the 
input. If the required value is smaller, no remedy 
is needed. 

(e) THE XXXXTH DIAG. AFTER FACT=0.0, INCOMPLETE FACT 

This message appears when the factorization of the 
mass matrix is not complete. The program also 
stops. Check the input. 

(f) HO. OF NEGATIVE DIAG. = XXXX, FACT COMPLETED 

This prints out the number Of negative diagonals 
of the factorized mass matrix. If the printed value 
is other than zero, the mass matrix is not positive 
definite. Check the input data. 

(g) EIGENVALUES = 

At each iteration, calculated eigenvalues are printed 
out. If eigenvalues satisfy the accuracy requirements, 
these results are printed out in eigenvalue format (the 
square value of the natural frequency) , radian/second 
and Hertz, 

(h) NO. OF ITERATION = XXXX CONVERGED WITHIN O.XXXXXEXXX 

This indicates that the subspace iteration is com- 
pleted, The first value printed is the number of the 
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iteration and the second value is the error limit input 
by the user. 

(i) NO. OF ITERATION = XXXX NOT CONVERGED 

This appears instead of (h) message if the user 
specified maximiim nvunber of iterations (NITR) has 
been reached, yet the eigenvalues have not converged 
to v^ithin the error limit set by the user. The user 
should check the input for possible errors or change 
the error limit (ERR) because the previous error 
limit may be too small to be achieved, or increase 
the maximum number of iteration (NITR) . 

(j) REDUCED MASS MATRIX 

The lower triangular part of the reduced mass matrix is 
printed out. 

(k) REDUCED STIF MATRIX 

The lower triangular part of the reduced stiffness 
matrix is printed out. 

U) ****BLADE MODE SHAPES**** or ****WING MODE SHAPES**** 
Mode shapes are printed out. Index I indicates the 
eigenvalue to which the mode shape corresponds and 
index j indicates the station number of the node. 
Symbols W(I,J) , V(I,J), PW(I,J) , and DV(I,J) are 
vertical bending (flapping motion ) , chordwise bending 
(lagging motion) , slope of the '‘vertical bending, and 
slope of the chordwise bending, for the case of blade 
vibration. In addition to those symbols, PHI(I,J) 
and DPHI(I,J) are used for the torsion and slope of 
the torsion for the wing vibration. The coordinate 
system is shown in Fig, 4. 


17 



(m) Punched Card Output 

If IPUNCH is set equal to one, the piinched card output 
is also performed. The format is £13.5 with six data 
items on a card. The order is w(l,l) of the first mode 
to last WdfNET-fl) , punched on [(NET-fl)/6] cards if 
(NET+1) is a multiple of 6, otherwise [ (NET+1) /6+1] cards. 
Next V(1,J), DW(1,J) and DV(1,J) groups are punched. After 
the first mode shape the group of the second mode shape 
is punched and it continues to the Mth mode shape. In the 
case of the wing, the output data of PHI(I,J), DFHI(I,J) 
are added in the same fashion after the set of DV(I,J). 
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3,3 Example Problems 

Example problems cited here for the FREEVI program are taken 
from Ref. 1. 

3.3.1 Application to the wing 

The free vibration of the Bell wing is considered in this 
report. Structural characteristics (mass distribution, bending 
stiffness and so on) are shown in Fig. 6. Mass moments of inertia 
of the nacelle and blades are tabulated in the "Bell" column of 
T£d>le 3. The listing of both input and output are sho%m in Appen* 
dix B . 

3.3.2 Application to the Blade 

The hingeless rotor of the Boeing Vertol is studied here. 

It should be noted that the rotation direction is negative in this 
case. Structural characteristics are shown in Fig. 7. The listing 
of both input and output are shown in Appendix B. 
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SECTION 4 


USER'S GUIDE FOR THE TILDYN PROGRAM 
4 , 1 Input Data Requirements 

This program has several parameters to designate the case 
being considered by the user. The first one is ITYPE, which speci- 
fies whether collective mode shapes of the blade different from the 
cyclic mode shapes are needed. If it is the gimballed rotor, the 
parameter instructs the computer to read more data for the collec- 
tive mode shapes of the gimballed rotor. The parameter IFLT defines 
wliether the case considered is powered flight or autorotation flight. 
The next parameter IDOF specifies the number of degrees of freedom. 

If it is nine, two blade modes {giving six degrees of freedom in 
the non-rotating system) and three wing modes are necessary. If 
IDOF is eighteen, two more modes for the blade and three more modes 
for the v/ing should be added to the nine degrees-of- freedom system. 
The parameter IRES specifies execution of the frequency response 
analysis. The user should decide whether the response based in 
terras of normal mode shapes or in terms of mode shapes nonrjalized 
to unity at the blade tip. This is determined by the parameter 
IFRMAG, The last parameter lEIGEN Specifies execution of the 
eigenvalue analysxs . 

Parameters and variables are described in input order belcws 

DES A vector to express the test identifying information. 

The user can punch the run identification in the first 
column through the eightieth column of the first card. 

The format is 80A1. 

ITYPE A parameter to control the reading of input data depending 
upon the type of rotor. 

ITYPE=0 ; the hingeless rotoi^ in powered flight 
ITYPE=1; the hingeless rotor in autorotational 
flight, 

the gimballed rotor both in powered and 
autorotational flight. 
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IFLT 


IDOF 


1B£S 


The format is (II) and it is punched in the first column 
of the second card, 

A paraiaeter to determine the flight condition. 

IFLT=0? powered flight 
IFLT=1; autorotation flight 

The format is (XI) and it is pxmched in the first column 
of the third card. 

A parameter to define ^e number of basic elastic deforma- 
tion degrees of freedom and how many mode shapes are 
needed. It should be noted that the same number IDOF is 
used for both powered flight and autorotation flight. 

ID0F=9; In the powered flight case, nine equations 
are constructed and two mode shapes for the 
blade eind three mode shapes for the wing 
are necessary. In the autorotation flight 
(IFLT=1) , ten equations are constructed, 
due to the addition of the rigid-body ro- 
tation of the blades. 

the same number of mode shapes as for the 
powered flight is necessary. 

ID0P=18; In powered flight, eighteen equations are 
formulated. In autorotation flight they 
become nineteen. In total, four mode shapes 
are necessary for the blade and six for the 
wing. 

The format is (11) and it is punched in the first 
two columns of the fourth card. 

A parameter to control whether the frequency response 
analysis is carried out. 

IRES-0; It is not carried out, 
iREs==l; it is carried out. 

The fojnnat is (II) and it is punched in the first column 
of the fifth card. 
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IFRl'IAG 


lElGEN 

NOBLD 

ROK 


A parameter to control the type of mode shapes used for 
the output results, 

IFRMAG=0y the frequency response and eigenvector 
results are based on mode shapes as 
follows: the predominant components of 
the blade-coupled-mode shape are normal- 
ized to R( rotor radius) at the maximum 
deflection point. The wing-bending-mode 
shapes are normalized to L (wing semispan) at 
the the maximum deflection point, emd the 
wing-torsion-raode shape is normalized to 
unity at the maximum deflection point. 

This type of normalization is for the 
purpose of obtaining results comparable 
with those described in Ref. 6. 

IFRMAG=1; the frequency response and eigenvector 
results are based on the normal modes 
used as input data. 

The format is (II) , and it is punched out in the first 
column of the sixth card. 

A parameter to control whether the eigenvalue analysis 
is executed. 

IEIGEN=0; it is not executed. 

1EIGEN=1; it is executed. 

The format is (XI) and it is punched in the first column 
of the seventh card. 

The blade number. The format is (II) and it is punched 
in the first column of the eighth card. 

The air density. The format is (EIO.O) ; the user can put 
a datum in either F format or E format in the first ten 
columns of the ninth card. 
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OMEGA 


RAMDA 


VEL 


R 


AIB 


CHOD 


CL 


CD 


The rotor rotational speed (radian/sec) . The format is 
£10.0; the user can choose either E or F type. The 
datum is put in the eleventh column through the twentieth 
column of the ninth card. OMEGA can take positive or 
negative values corresponding to the rotational direction. 
The sign definition is the same as that of the FREEVI 
program. 

The inflow ratio. The sign should be consistent with 
the rotational direction of the rotor. The format is 
either in E or F type. The datum is put in the 2 list 
through 30th column of the ninth card. 

The cruising speed of the aircraft. The format is 
either £ or F type. The datum is put in the 31st through 
the 40th column of the ninth card. 

The blade radius. The format is either E or F type. It 
is punched in the first through the tenth column of the 
tenth card. 

The blade flapping moment of inertia. The format is 
either E or F type. It is punched in the eleventh 
through the 20th column of the tenth card. 

The mean chord length of the blade. The format is either 
E or F type. It is punched in the 21st through the 30th 
column of the tenth card. 

The lift-curve slope of the blade. The format is either 
E or P type. It is pvmehed in the 31st through the 40th 
column of the tenth card. 

The drag coefficient of the blade (C^^) . The format is 

either E or F type. It is punched in the 41st through 
the 50th column of the tenth card. 
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HMAST 


DEL 3 


WL 


WOOD 


WCL 


WCD 


WCMO 


WCMA 


EDIS 


The mast height. The format is either E or F type. 

It is punched in the 51st through the SOth column of the 
tenth card. 

The rotor blade pitch-flap coupling (^ 3 ) • The unit is 
radians. The format is either E or F type. It is 
punched in the 61st through the 70th column of the 
tenth card. 

The wing semispan length. The format is either E or F 
type. It is punched in the first through the tenth 
column of the eleventh card. 

The mean wing chord length. The format is either E or 
F type. It is punched in the eleventh through the 20th 
column of the eleventh card. 

The wing lift curve slope. The format is either E or 
F type, it is punched in the 21st through the 30th column 
of the eleventh card. 

The wing drag coefficient (Cj^ of the wing) , The format 

is either E or F type. It is punched in the 31st through 
the 40th column of the eleventh card. 

The wing pitching moment coefficient . The format 

is either K or F type. It is punched out in Idle 41st 
through the 50th column of the eleventh card. 

The wing pitching moment curve slope (C^ ) , The format 
is either E or F type. It is punched in^the 51st through 
the 60th column of the eleventh card. 

The distance (nondimensionalized by the wing chord) between 
the elastic axis and the aerodynamic center of the wing 
(positive if che aerodynamic center is ahead of the elastic 
axis) ,, The format is either E or F type. It is punched in 
the 61st through the 70th column of the 11th card. 
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WTHET The wing trim angle of attack in radians. The foimnat is 
either E or F type. It is punched in the 71st through 
the 80th column of the eleventh card. 

CGUST A vector to express the magnitudes of the exciting force 
components shown in Eg. 2.3 as (e). 

CGUST (1); vertical gust u^^/V 
CGUST (2): lateral gust v_/V 
CGUST (3); longitudinal gust w^/V 
CGUST (4); collective pitch control 6^ 

CGUST (5); cyclic cosine pitch control 0^^^ 

CGUST (6); cyclic sine pitch control 0^^^ 

If the user specifies 1.0 for one of these quantities, 
that gust or pitch control quantity becomes the exciting 
force. Each vector component has either E or F format 
and occupies ten columns each of the twelfth card. 

BEAM A vector to express the blade eigenvalues and its length 

is 4. The values are the squared valA%$:B of the natural 

2 2 

frequencies {rad /sec ). If IDOF is set equal to 9, the 
latter two eigenvalue columns may have blanks. If the 
calculation case is the gimballed rotor (ITYPE=1) , BEAM 
should include the cyclic mode eigenvalues of the blade. 
The format is either E or F type and each component oc- 
cupies ten columns in order of the 13th card. 

WEAM A vector to express the wing eigenvalues and its length 

is 6. The values are the squared values of the natural 

2 2 

frequencies (rad /sec ). If IDOF is set equal to 9, 
the latter three eigenvalue columns may have blanks. 

The format is either E or F type and each compon nt oc- 
cupies ten columns in order of the 14th card, 

NW A number to specify the wing element quantity. The 

format is (12) and it is punched in the first two 
colimns of the 15th card. 
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3MSW A vector to describe the wing element size. The vector 
length is NW and the element size, nondimensionalized 
by the wing semispan , should be input. The format is 
either E or P type (£10.0), Each vector component oc- 
cupies ten columns from the 16th card. The number of 
the card for EMSW is NW/8 if NW is a multiple of 8, 
Otherwise I (NW/8) + 1] cards. 

G A matrix to describe the wing vertical bending mode 

shape (y in Ref, 1) at the nodes. The size of the matrix 
is MWx(NW+l), where MW is 3 if IDOF=9 and 6 if IDOF=18. 

The format is E or F type (E13.5) cind G(l,l) expresses 
the vertical deflection at the root node of the first 
mode. GdfNW+l) is the one at the tip node of the first 
mode (Fig. 4) . The data should be punched in order from 
the root node to the tip node value. One card can include 
6 data. 

Z A matrix to describe the wing chordwise bending mode 

shape (c in Ref. 1) at the node. Other comments are the 
same as fpr G. 

DG A matrix to describe the wing vertical bending slope 

(dy/dy in Ref. 1). Other comments are the same as for G. 

DZ A matrix to describe the wing chordwise bending slope 

(d5/dy in Ref, 1) . Other comments are the same as for 

G. 

WPHI A matrix to describe the wing torsion deflection 

(i}> in Ref, 1). Other comments are the same as for G, 

DWPHI A matrix to describe the wing torsion slope (d(j)/dy in 
Ref. 1) . Other comments are th '2 same as for G. 

The output of the FREEVI program automatically satisfies 

the deck setup for the TILDYN program, but for convenience the 

card setup for the wing mode shapes are repeated as follows ; 
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1st card contains G(lrDr G(l,2)...^ G(l,6) 


Next card contains 0(1^7) G(1,NW+1) 

New card contains Z(l,6) 

Z(l,7) Z (1,NW+1) 


New card contains DG(lfl). 

DG(1,7) 

New card contains DZ(1,1) 

DZ<1,7) 

New card contains WPH1(1,1) 

WPHI (1,7) 

New card contains DWPHI(1,1). 

DWPHI(1,7) 

New card contains G(2,l) G(2,6) 

G(2,7) 

Z(2,l) 

Z(2,7) 


New card contains OWPHI (MW, 1) • 

Last card for the wing mode shape contains DWPHI (MW,7) . . . 

DWPHI (MW,NW+1) 

The wing mode shapes occupy N^ cards where 

{ 6MW[(NW+l)/6] if (NW+1) is a multiple of 6 

6MW [ (NW+1) /6+1] if (NW+1) is not a multiple of 6 

N A number to specify the blade element quantity. The 

format is (12) and it is punched in the first two columns 
of the next card to the wing mode shapes. 



EMS 


AMASS 


THETN 


COL 


W 


A vector to describe the blade element size. The vector 
length is N and the element size# nondimensionalized by 
the rotor radius# should be input. The format is either 
E or F type (£10,0). Each vector component occupies ten 
columns, and the card number is N/8 if the M is a multi- 
ple of 8, Otherwise [N/8+1] cards, 

A vector to describe the mass distribution of the blade. 

The vector length is (N+1) , The value should be the mass 
distribution (mass per unit length) expressed at the node. 
The format is either E or F type (ElO.O) . Each vector com- 
ponent occupies ten columns , and the card nximber is (N+1) /8 
if (N+L) is a multiple of 8. Otherwise t(N+l)/8+l] cards, 

A vector to describe the angle of twist of the blade. The 
vector length is (N+1) , The value should be the angle of 
twist at the node and positive nose up. The format is either 
E or F type (ElO.O) , Each vector component occupies ten 
columns, and the card number is (N+l)/8 if (N+1) is a multi- 
ple of 8. Otherwise, [(N+D/8+1] cards, 

A number to express the collective pitch angle (9^ in 
Ref. 1) defined from the performance (trim) calculation. 

The format is either E or F type (ElO.O) , and it occupies 
the first ten columns of the next card to THETN. 

A matrix to describe the blade out-of-plane bending mode 
shape (Wj in Ref, 1) at the node. The size of the matrix 
is MBx(N+l) where MB is 2 if ID0F=9 and 4 if ID0F=18. The 
format is E or F type (E13.5) and W(l,l) expresses the 
out-of-plane deflection at idle root node of the first 
mode, W(l,N+l) is the one at the tip node of the first 
mode. The data should be punched in order from the root 
node to the tip node value. One card can include 6 data. 
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V 


A matrix to describe the blade inplane bending mode shape 
(V, in Ref, 1) at the node. Other comments are the same 
as those for W. 

DW A matrix to describe the blade out-of-plane bending mode 

shape slope (dW^/dr in Ref, 1) at the node. Other com- 
ments are the semie as those for W, 

DV A matrix to describe the blade inplane bending mode shape 

slope (dVj/di^ in Ref. 1) at the node. Other comments are 
the same as those for W. 

If the calculation case is the gimballed rotor (ITyPE=l ) , or auto- 
rotational flight {ITYPE=1 and IFLT=1) , the eibove blade-mode shapes 
correspond to the cyclic mode shapes. 

The output of the F^EVl program automatically satisfies 
the deck setup for the TILDYN program; however# for convenience# 
the card setup for blade mode shapes is repeated below: 

1st card contains w(l#l) # W(l#2)# ......... ,W(1#6) 


Next card contains W(l,7) ...w(l,N-fl) 

New card contains V(l,l) 

V(l#7) 

DW(1#1) 

i>W(l,7) 

DV(1#1) DVa,6) 

DV(1,7) DV(1,N+1) 

W(2,l) 

W(2#7) 

V(2#l) 

V(2,7) 


DV(MB#1) 
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Last card contains DV(MB,7) 


DV(MB,N+1) 


The blade mode shapes occupy cards where 

f 4MB ( (I-J+l) /6] if (N+1) is a multiple of 6 
” 1 4MB [ (N+1) /6 +i 3 if (N+1) is not a multiple of 6 

If the computer calculation case is the gimballed rotor (ITYPEs=l) 
or auto rotational flight (ITYPE=1 and IFLT=1 ) , the next five data 
cards as for the collective mode shapes of the blade should be added. 


BRAMO A vector to express the blade collective mode eigenvalues 

and its length is 4. The values are the squared values 

2 2 

of the natural frequencies (rad /sec ) . If 1IX)F is set 
equal to 9, the latter two eigenvalue columns may have 
blanks. The format is either £ or F type and each vector 
component occupies ten columns in order of the next card 
to the blade mode shapes. 

WCOL A matrix to describe the blade collective qut-of-plane 
bending mode shape (W^ in Ref. 1) at the node. The size 
and other comn^nts are the same as those for W. 


VCOL A matrix to describe the blade collective inplane bending 
mode shape (V? in Ref. 1) at the node. Other comments 
are the same as those for W. 


DWCOL 


A matrix to describe the blade collective out-of-plane 


mode shape slope (dW°/dr in Ref. 1) . 
are the same as those for W. 


Other comments 


DVCOL A matrix to describe the blade collective inplane mode 
shape slope (dV°/dr in Ref. 1) . Other comments are the 
same as those for W. 


The data deck setup is shown in Fig. 8, and an example problem data 
listing is given in Appendix B, 
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A few notes to supplement the input data definitions : 

a) The maximum element number (N or NW) is 20 

b) If rotor rotational direction is negative, RAHDA 
should be negative, Ilov/ever, THETN and COL are 
positive nose up as in the FREEVI program. 

c) The mode shapes used in the TILDYN program should 
be defined as normal modes. Those definitions ap- 
pear in Eq, 4,7 for the blade and in Eq, 4,12 for 
the wing in Ref. 1. If modes are not normalized 
in this way, the calculation will give wrong 
answers . 

d) Output mode shapes from the FREEVI program some- 
times include unnecessary mode shapes ^ for ex- 
ample, the rigid body mode for the collective 
mode shapes of the gimballed rotor if the user 

uses the clamped faoiandary condition for the flapping 
motion and the hinged boundary condition for the lag- 
ging motion to derive the collective mode for autorota- 
tional flight, 

e) If there are several cases, the data may consist of 
several data sets. The computer execution continues 
until it finds the absence of data, 

4,2 Outpu^t Features 

In the output, the identifying title is printed first, as 
punched in by the user. All input data are printed out below. 

After the mode shape listing, the matrices A, B, C, and D 
of the equations of motion in Eq, 2,3 are listed. When the degrees 
of freedom of the equations are 18 or 19, the first 9 columns of 
the coefficient matrix are printed out, followed by the latter 9 
or 10 columns of the matrix. 

If the user has chosen the frequency response analysis 
(IRES=1) , the results of that calculation appear next. Each 
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response magnitude is showed corresponding to a nondimensional 
frequency. If IFRMAG is set equal to zero, the response magnitudes 
are based on the mode shapes normalized to rotor radius and wing 
semispan (refer to the explanation of XFRMAG in Section 4.1). In 
autorotation flight, the rigid-body rotation response is added to 
the basic form. It should be noted that the rigid-body rotation 
response is the rotational speed perturbation response, not the 
deflection response. Therefore, it is termed D(NUR)/DT (to ex- 
press Vj^) . 

The eigenvalue analysis consists of the eigenvalue and 
eigenvector listing. All eigenvalues of the system are printed in 
the form of complex values with damping ratios, including pairs of 
complex conjugate values. The eigenvectors corresponding to the 
eigenvalue are printed. The maximum absolute values of the eigen- 
vector components are normalized to unity. Real parts and imaginary 
parts express the phase cingle between each eigenvector component. If 
IFRMAG is set to zero, the eigenvectors are expressed based on the 
mode shapes normalized by rotor radius and wing semispan (refer to 
the explanation of IFRMAG in Siobsection 4.1) as in the frequency 
response. On the other hand, if IFRMAG is set to unity, all are in 
length, except (rigid-body rotation in autorotation flight) . v_ 
is an angle, in radians. Therefore, some attention should be paid 
to comparing the role of each eigenvector. 

Only one built-in message is furnished for this program. 

If an error occurs in the eigenvalue analysis, the message below 
is automatically printed out after the title "EIGENVALUES": 
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IERBOR«XXXXX 


The error code is shown as follows: 


Error Significance 

The calculation of the Ith eigenvalue failed 
to converge • Eigenvalues I-t-1 . • . N should be 
correct. 

The calculation of one or more eigenvectors, 
including the Ith, failed to converge. All 
eigenvalues and non-zero eigenvectors are 
correct. 


Example Problems 


Sample problems are carried out here for the Bell and Boeing 
tilt rotor wings. The flight condition is normal level flight 
cruising (around 200 kt) at sea level. The detail data is shown 
in Table 3. The input data listing in Appendix B includes the auto- 
rotation flight case for the Bell model and the powered flight case 
for the Boeing model. However, the output listing of only the Bell 
autorotation flight case is shown as an example in Appendix B. 
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TABLE 1 BOUNDARY CONDITIONS AND OUTPUT DEFLECTIONS OP THE 
ROTOR AND WING IN THE FREEVI PROGRAM 


BOUNDARY CONDITIONS 
ROOT TIP 


OUTPUT DEFLECTIONS 


Wing 


Clamped for all Defiec- Lumped Mass with Mass Vertical Bending 

tions and Mass Moment of Chordwise Bending 

Inertia Torsion 


Blade 

Powered 

Free or Tip Mass if 
Necessary 


Hingeless Rotor Clamped for all Deflec- 
tions 


w 

U1 


Gimb ailed Rotor 
Collective Mode 

Cyclic Mode 


Clamped for all Deflec- 
tions 

Hinged for Flapping, 
Clamped for Lagging 


Auto rot at ion 
Hingeless Rotor 

Collective Mode Clamped for Flapping, 

Hinged for Lagging 

Cyclic Mode Clamped for all Deflec- 

tions 


Gimb ailed Rotor 
Collective Mode 


Cyclic Mode 


Clamped for Flapping, 
Hinged for Lagging 

Hinged for Flapping, 
Clamped for Lagging 


It 


ft 


II 


II 


Out-of-Plane 

Bending 

Inplane Bending 

If 


II 


It 


11 
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TABLE 2 DESCRXPTION OF VARIABLES 


(a) Description of {x} in Eq. 2.3 


Total Degrees of 
Freedom 

Description 

Powered Autorotation 

Flight Flight 


9 DOF 

18 DOF 

10 DOF 

19DOF 



^10 

®10 

°10 

^10 

Blade Collective Motion of 
Frequency 

1st Natural 

0 
(— ( 
a 

Qic 

^Ic 

Qlc 

Blade Cyclic Cosine Motion 
Natural Frequency 

of 1st 

^Is 

^Is 

Qis 

^Is 

Blade Cyclic Sine Motion of 1st 

Natural Frequency 


^20 

^20 

®20 

^20 

Blade Collective Motion of 
Frequency 

2nd Natural 

^2c 

^20 

®2c 

Q2C 

Blade Cyclic Cosine Motion 
Natural Frequency 

of 2nd 

*^2s 

^2s 

^2s 

^2s 

Blade Cyclic Sine Motion of 2nd 

Natural Frequency 



®30 


^30 

Blade Collective Motion of 
Frequency 

3rd Natural 




°3C 

Blade Cyclic Cosine Motion 

of 3rd 




Natural Frequency 



°3s 


^3s 

Blade Cyclic Sine Motion of 3rd 



Natural Frequency 



^40 


^40 

Blade Collective Motion of 
Frequency 

4th Natural 


Q4c 


Q4C 

Blade Cyclic Cosine Motion 
Natural Frequency 

of 4 th 


Q4s 


°4s 

Blade Cyclic Sine Motion of 4th 



Natural Frequency 


^1 

^1 


^1 

Wing Motion of 1st Natural 

Frequency 

^2 

^2 

^2 

^2 

Wing Motion of 2nd Natural 

Frequency 

^3 

^3 

^3 

^3 

Wing Motion of 3rd Natural 

Freguency 


^4 


^4 

Wing Motion of 4th Natural 

Frequency 


^5 


^5 

Wing Motion of 5th Natural 

Frequency 


^6 



Wing Motion of 6tl Natural 

Freguency 




^'r 

Rotor Rigid-Body Rotation 
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TABLE 2 CONCLUDED 


(b) Description of {e} in Eq. 2.3 


Symbol 

Description 

Uq/V 

Nondimensional Vertical Gust 

Vg/v 

Nondimens ional Lateral Gust 

Wq/V 

Nondimensional Longitudinal 
Gust 

«o 

Collective Pitch Control 

®lc 

Lateral Cyclic Pitch Control 

«ls 

Longitudinal Cyclic Pitch 
Control 
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TABLE 3 


DESCRIPTION OF THE BELL AND THE BOEING PROPROTOR DESIGNS 
IN POWERED FLIGHT CONSIDERED IN THIS REPORT 



BELL 


BOEING 

ROTOR 




Type 

gimballed, stiff 
inplane 

cantilever , soft 
inplane 

Number of 
blades , N 

3 


3 

Radius , R 

156 in. 


150 in. 

Chord, Cg 

18.9 in. 


14 in. 

Lock number, y 

3.83 


4.04 

Solidity , d 

0.089 


0.115 

Piteh/flap 
coupling, 6^ 

-15 deg. 


0 

Collective pitch. 

1.25 deg. 


1 . 0 deg . 

®D 




Lift-curve slope. 

a 5.7 


5.7 

Drag Coefficient, 

So 

0.0065 


0.0065 

Rotor rotation 
direction, 

+1 


-1 

inflow ratio. 

0.7 


-0.7 

Rotational speed. 

|D| 458 RPM 

48.9 rad/see 

386 RPM 
40.4 rad/sec 

Blade Natural Frequencies 



first, 

1.02/rev 

(7.78BZ) 

0.827/rev. (5.32Hz) 

second, X^/!^! 

1 . 3 4 /rev 

(10.2Hz) 

1.32/rev (8.49Hz) 

third, X^/jsl 

4 . 35/rev 

(33.2Hz) 

3.40/rev (21.9Hz) 
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ROTOR ( con t’d) 


TABLE 3. CONTINUED 
BELL 


fourth,X^/I K| 

Collective Natural 
Frequency 

first, 

second, X 2 °^ /I 


third, 


fourth x|°^/jn| 


Blade flapping 

inertia, I„ 

B 


10. 1/rev (77.1Hz) 

1.31 /rev aO.OHz) 
2. 12 /rev (L6.2Hz) 
4. 9 3 /rev (37.7Hz) 
10, 6 /rev (80.9Hz ) 
105 slug-ft^ 


One blade weight, 133 lb 


BOEING 

6,77/rev( 43,5Hz) 


150 slug-ft^ 
124 lb 


WING 


Semispan, L 

200 in. 

200 in. 

Chord, c, 
w 

62.2 in. 

62.2 in 

Mast height, h 

51.3 in. 

51.3 in 

Sweep 

0 

0 

Dihedral 

0 

0 

Lift-curve 

S.7 

5.7 

slope, a^ 

Drag coefficient. 

0.004 

0.004 

Dow 

Moment coefficient C. 

-0.005 

-0.005 

mo 

Aerodynamic center. 

O.OI 

0.01 

w 

Angle of attack, a 
-a ' vra 

2.0 deg 

2.0 deg 


39 



TABLE 3. CONCLUDED 



BELL 

V7ING (cont'd) 

• 

Natural Frequencies 


first, A^/l nj 

0.34 7/rev (2.65Hz) 

second, A 2/ 1 

0.622/rev(4.75Hz) 

third, A^/j^i 

1.09/rev (8, 32Hz) 

fourth, A^/j flj 

2, 37/rev { 18,1Hz) 

fifth, Ag/jnl 

3 , 76/rev (2 8 , 7 Hz ) 

sixth, Ag/|Sij 

10 , 6/rev ( 80 , 9Hz ) 

PYLON 


Weight, M 

- / p 

1420 lb 

Yaw inertia, I 

py 

164.8 slug— ft^ 

Pitch inertia, Ip^ 

190 ,0 s lug- f 

Boll- inertia, I 

42,4 slug-T-ft^ 

FLIGHT CONDITION FOR 

CALCULATIONS, X = 0.7 

Cruising spaed, V 

250 kt 

Cruising altitude 

sea level 


BOEING 

0,365/rev (2.35Hz) 
0 ,653/rev(4 ,20Hz) 
1 . 11/rev ( 7 , 1 4 H z ) 
2, 4 7/rev (15. 9Hz) 

3 , 95/rev ( 2 5 .'4Hz ) 

/• 

12.5/rev(80.4Hz) 
2000 lb 

250.0 slug-ft^ 

250.0 slug-ft^ 

30.0 slug-ft^ 

218 kt 
sea level 
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FIG. 1 FLOW CHART OF FREEVI PROGRAM FOR BLADE AND WING 
OF NATDRMi FREQUENCIES AND MODE SHAPES 
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FIG. 1 CONCLUDED 
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FIG. 


© 

FLOW CHART OF TILDYN PROGRAM FOR ANALYSIS OF 
TILT ROTOR AIRCRAFT DYNAMICS 
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PIG. 2 CONTINUED 




FIG. 2 COHCLUDED 
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THETA 


FIG. 3 CX)ORDINATE SYSTEM FOR FREEVI PROGRAM 



FIG. 4 FINITE ELEMENT REPRESENTATION WITH 
BEAM ELEMENTS 
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DATA FOR THE 
WING 
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I.^ (slug 



FIG. 6 STRUCTURAL CHARACTERISTICS OP THE WING 



X 10^ Ib-in^ 

S'0000 


16000 


(ri i 

‘ v;'c 12000 


8000 


4000 


(b) St 







800 


KELL 

BOLING 



(c) Section Chordv;ise Bonding Stiffness Distribution 


FIG. 7 CONTINUED 




FIG, 7 CONCLUDED 













o 

FIG. 8 CONTINUED 
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DVCOL(MB/ 
D — 

DVCOL(MB, 

N+1) 


WCOL (MB,1) 
— WCOL(MB, 
lS+1) 



VCOL(l,l) 
^VCOL(l,| 



VCOL ( 1 
--VCOLd, 
N+1) 

K WCOL (1,1) 
I— WCOL (1, 

BRAMO 


BLADE COLLECTIVE 
MODE SHAPE DATA 
IS FURNISHED IF 
THE CASE IS ADTO- 
ROTATION FLIGHT 
(IFLT=1 ITYPE=1) OR 
GIMBALLED ROTOR IN 
POWERED FLIGHT (IFLT=0, 
ITYPE=1) 


it 

O 


FIG. 8 CONCLUDED 
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APPENDIX A 


PROGRAM LISTING 


A.l The FREEVI Program Listing 
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nonooooooooooooooooo 


PROGRAM ROTOR 

PART 1 ; PROGRAM FREEVI 


PURPOSE 

TO OBTAIN THE NATURAL FREQUENCIES AND MOPE SHAPES 
OF THE ROTOR BLADE AAD WING OF THE TILT-RGTOB AIRCRAFT 

DEVELOPED BY HAS AH I RO YASUE 

OF AEROELASTIG AND STRUCTURES RESEARCH LABORATORY 
AUGUST IS7A 
ADDRESS ; BLG A 1-2 11 

MASSACHUSETTS INSTITUTE OF TECHNOLOGY 
CAMBRIDGE, MASS. 02139 


IMPLICIT REAL»8( A-H,0-Z) 

DIMENSICN N0PE(20), NNCCE(252), N00(126l, ICGL 1 126 1 , INUMC 126 I 
EIMENSICN STK( 1550) , STM( 15501 , BKI78J ,EMC 78) ,XtRa200l ,xa200l 
CINENSICN YU200), U ( 126 ) ,E IG(9 ) ,LCH ( 9 ) , RMtSlI, RKI81), RVI81) 

D IME NS I ON SRH I 8 1 ) , SRK ( 8 1 ) 

1 CALL TElGENfNDPE, NOD,NNOOE, ICOL, INUM,STK,STM,EK,EM, 

1 XLR,L,EIG,LCH,RM,PK,RV,SRH,SRK,X,Y) 

GO TO 1 
END 


MAINOOOI 
MAIN0002 
HA IN 0003 
MAIN0004 
MAIN0005 
MAIN0006 
MAIN0007 
MAIN0008 
MAIN0009 
MAINOOlO 
MAINOOll 
MAIN0012 
MAIN0013 
MAIN0019 
MAIN0015 
MAIN0C16 
MAIN0017 
MAIN0018 
MAIN 001 9 
HAIN0020 
MAIN0021 
MAIN0022 
MAIN0023 
MAIN0029 
MAIN0025 
MAIN0026 
MAIN0027 
MAIN0028 
MAIN0029 



SL6RQUTINE TEIGENINDPE. NODt NNOOEt ICOLt INUM, STK, STM.EK 

S,EM, XiRf U.ei6»LCH,ftH,RX,RV,SRH,SRK.XfY) 


TO CALCULATE TBE MGRRAL RDOES AND FREOUENGIES 

IMPLICIT REAL=R8( A*H,C-Z ) 

COMMON /0W/ ICASE , I GUEST 

GCMMON/PELP/ALPHAH 

01 HENS I LN NDPElDt NBCUf 1) tNODUit NNOOEt 1 ) t ICOL ( 11 

CIHENSIGN 1NUM( U.STKdWSTMI ll*EK(ll .EMUl t XlRdl 

CIMENSICN UdltEIGdlfLCM 1) 

D I HENS I ON RM ( 1 1 .RKd I , RV ( 1 1 « SRK (I ) tSRMU 1 , X ( 1 1 

EIM ENSIGN Ydl 

CIMENSUN SQt(20),eYCC20l 

CALL I N P U T ( I £ Q , N'DP E » N e T f NO T , M NC t N N 0 DE f N B U 1 1 N U H # E R R . N I T R , M 1 

CALL MES H < NiD PE , NET , NCT , N CDT , MNC t HN , NOD t NNODE , I COL 1 1 NUM , N8U 

a , INDEX! 

IF (INDEX .EQ. 0) GO TO SS 

CALL ASEV(STK,STM,TEQt EK.EMf MDPE,NDT,NCDT,NNOnEfMN,NET, INUMI 
MA = M 
N=NCDT 
M' = NCDT*M 

CALL FAC(STK,N,NNDG, ICGLf INUM.Ul 

IFINNDG .LT. 01 GO TO R9 

CQ 3 1 = 1, H 

EIG(H= .0 

EG 7A K=1,M 

I 1= (K-l 1*N 

IY=K*2-1 

DO 74 1=1, N 

1X=IY 

I Y=IX*65539 
IfdY) 7 5,76,76 
IY=IY+2147483647+1 
YFL=I Y 


TEIGOGOl 

TEIG0002 

TEIG0003 

TEIG0004 

TEIG0005 

TEIG0006 

TEIG0007 

TEIG0008 

TEIG0009 

TEIGOOlO 

TEIGOOll 

TEIG0012 

TEIG0013 

TEIGOOIA 

TEIG0015 

TEIG0016 

TEIG0017 

TEIG0018 

TEIG0019 

TEIG0020 

TEIG0021 

TEIG0Q22 

TEIG0023 

T6IGG024 

TEIG0025 

TEIG0026 

TE1G0027 

TEIGG028 

TEIG0029 

TEIG0030 

TEIG0G31 

TEIGGG32 

TEIG0033 

TEIG0034 

TEIG0035 

TEIS0036 



74 XLR( I I + I »=YFL«av46566l3D-9'-Q.5C+00 
IFi IGUFST.EQ.OI GO TQ 200 
GO T0< (21Cf 220t230t2^Qt220) tICASE 
210 GO TQ (31C, 320, 3301 f IGUEST 

C W ONLY 

31C IX=N/6 

CQ 301 K=1,M 
I I=NGr)T*K-NCDT 
XLRUI + 1 )=O.OC+O0 
DC 301 KK=1,IX 
JJ=KK»fc-5 

XLRni+JJ+2»=0.(jD+00 
XI.R ( I t+JJ*4» = 0.00+00 
XLR{ Il+JJ+5 )'=0.A.D+0O 
3 31 XLF til* JJ+^>)=u.Q0+00 

GG TO 200 

G V ONLY 

3 2C IX = N/(S 

CO 302 K=1,M 
r 1 = NCDT*^K-NCCT 
Xt,F(n + l)=O.CD+00 
CG 302 KK= I, IX 
J J=KK^6~5 

XLF (I I+JJ+l 1=0.00+00 
X L R ( M ♦ J J + 3 I = C . 0 D +00 
XLR { II + J J + 5 ) -0, OlJ+00 
20 2 XL R ( 1 1 + J J + 6 ) = 0, 00+00 

GO TO 200 

C Fhl ONLY 

33t‘ lX=N/6 

DO 3(13 K = 1»R 
I I = NCOT*K-NCDT 
CQ 3^J3 IX 

J J = KK«t.-5 
DO 303 KKK=i,4 
XLP ( M+JJ + KKKJ=0«OC+00 


303 


TE 1 0003 7 
TEIG003R 
TEIG0a39 
TEIG0040 
TeiG0041 
TEIGU042 
T6IG0043 
T6IG0044 
TEIG0045 
TEIGG046 
TEIG0047 
TETG0048 
TEIG0049 
TEIG0050 
TEIG0051 
TEIG0052 
TFIGU053 
TETG0054 
TFIG0U55 
TEIG0056 
TEIC0057 
TEIG0C58 
TFIG0059 
TE 160060 
TEIG0061 
TE IG0062 
TEIG‘J063 
TE1G0064 
TE1G0D65 
TEIG0066 
TEIG0067 
TEIG0068 
TEIG(j069 
TEIGC070 
TEIG0071 
TEIG0G72 




GO TQ 200 

TEIG0073 

2 20 

GQ T0 (221*2221, IGUEST 

TEIG0074 

c— 

--W OMLY 

TEIG0075 

221 

IX=N/2 

TEIG0076 


DO 201 K=l,M 

TEIG0077 


ri=N*K-N 

TEIG0076 


OQ 201 1=1, IX 

TEIG0079 

2U1 

XLR n 1 + 2’f'I ) =0.300 

TEIG008G 


GG TQ 200 

T E I GOOfl 1 

C 

O'NLY 

TEIG0082 

222 

IX=N/2 

TEIG0083 


OQ 202 K=1,M 

TEIG0084 


I I=X4N-N 

TEl 60085 


GQ 2Q2 1=1, IX 

TEIG0086 

202 

XLR(M*2*i;-i)=0.Q00 

TEIG0087 


GO TO 200 

TEIGOO80 

230 

GQ TO (231, 232», IGUEST 

TEIG00B9 

C 

--Vi ONLY 

TEIG0090 

231 

IX=N/2 

TEIG0091 


DO 233 K=1,M 

TEIG0092 


II = N*'K-N 

TEIG0093 


XLR( ir+i>=o,ooo 

TEIG0094 


00 233 KK = l, IX 

TEIG0095 

233 

XlRin+24KK+ll=0.000 

TEIG0096 


GO TQ 200 

TEIG0097 

G- — 

--V ONLY 

TEIG0098 

23 2 

rx=N/2 

TE1G0G99 


DO 2 34 K^l.M 

TEIGOlOO 


II=N*K-N 

TEIGOlOl 


CC 234 KK=1,!X 

TEIG0102 

234 

XiP ( II+2YKK l = O.GDO 

TE I GO 103 


GO TO 200 

TEIG0104 

240 

GO TQ ( 241,242) , IGUEST 

TEIG0105 

C 

--k QNIY 

TE I GO 106 

241 

IX=N/2 

TEIG0107 


DO 243 K=1,M 

TEIG0108 



I i=n*k-N 

DG 2^3 KK=1» IX 
2A3 XLR{H + 2*KK + l) = 0,0DO 

GO TO 2CC 

C V ONLY 

IX-N/2 

DO 2<i^* K=1,M 
I l ^N’i'K-N 
XLR(II + U =Q.000 
[)|Q 2^4 KK=1,IX 
2<f^ XtR(ir+2'»‘KK|=O.ODa 
2GO GONTINUH 
IST=1 

DO 21 KKK = l,MTP 

QO 1 I=ITtNP 
1 vn)=XLBlM 

C/lLL 50LZ(STK,Y,Nf M-IST+liICOLflNUPiISTI 
CC 11 K=IST,M 
K 1 = K-1 

(X-i )«N 
XM=C.G 
LChiK 1=0 
00 7 1=1, N 
U = DABS( VI 11 + I I 1 
IF(D-XM)7, 7, ? 

<? XR='D 
LCH(K1=I 
7 CONTINUE 

IF(LGH(K) .EC. 0) GO TO 99 

B = Y( I I+LCH(Kn 

E=1.J/E 

CC 11 T=1,N 

111 = 1+1 I 

Y(IH 1=Y( II I J*F 
11 XtP (I m = XLRU ! n»F 


TEIG0109 
TE I GO lift 
TEIGOlll 
rciGoiu 

TEIGC113 
TE1G0U4 
TEIG0115 
TEIG0116 
TEIG01L7 
TEIG0118 
TEIG0119 
TEIG0120 
TEIG0121 
TEIGG122 
TFIG0123 
TEIG012A 
TEIG0125 
TEIG0126 
TEIG3127 
TEIGOIZB 
TEIGG129 
TCIG0130 
TEIG0131 
TCIG0132 
TEIG0133 
TEIG013A 
TEIG0135 
TEIG0136 
TFIG0L37 
TEIG0138 
TEIG0139 
TFIGOIAO 
TEIG0141 
rEIGC'142 
TE I GO 1^3 
TFIGOIAA 



CAIL MTRTR(M,N,RK, Y,XLP, 1ST) 

DO 31 1=17, Nf 
3 1 XtI)=Y(l) 

CALL M,l T Z ( STM , X ,U , N , M- I ST + 1 ,1 CGL , IMUH, I ST ) 
CALL MTPTR(M.N!,RM, Y,X,I ST) 

DO 3<9 1 = 1, MM 
SRMU l = f!M(I ) 

3S SRKU ) = RK ( I ) 

CALL DNR'OOT («,RM,RK,U,RV J 
DO ^0 1 = 1, M 

4L un )=1./U( D-ALPHAH 

l^FlTfcl6,4l) (U(I),I = 1,M) 

A1 FQRMATC /2X, •F JGENVALLES = ' , / , 1 2X , 10D13, 5 ) ) 

DG 22 I=1ST,MA 
IST = I 

IF(OABS(EI&* n/im )-UGl *GT. ERR) GO TO 23 
22 GCNTINUE 

DC 50 A I=l,M 

SQli ( I »= C SQR T ( DAB S ( U ( I ) ) ) 

CYC( n = SGlH I )*O.5DO/3.1A159 2'D0 
5GA CONTINUE 

W R I T E { 6 , 5 C 5 M S QU 1 1 ) , I » I , M ) 

5Q5 FQ'RMAT(/5X,*BA01AN/SEC* , /, ( 2X, 10C13.5 )> 

506 FORMAT! /5X, 'HERTZ • , / , ( 2X, lOD 1 3. 5 ) ) 

WRITE (6,506 ) ICYCI I ) , 1=1 ,M) 

DO 10 I=l,NCnT 
DO 10 J=1,M 
JJ={ J-1 JvNCDT 
XLP ( I U J) = 0«G 
DO 10 K = 1,M 

IG XLP(I + JJ)=XLR( I + JJ)+Yn + (K-l I + N ) *RV ( ( J-l ) ♦M+K ) 
DO 15 i=l,M 
I I = (I -1 ) +M 
CO 15 J=i,M 
J J= ( J-1 )'»M 
I J=JJ+I 


TF IG01A5 
TeiG0lA6 
TEIG01A7 
Tt 

TEIGC149 
TEIG015C 
TEIG015I 
TElGJi52 
TFIG0153 
TE I GO 154 
TEIG0155 
TFIG0156 
TEIG0157 
TEIG0158 
TEIGQ159 
TEIG0160 
TEIGG161 
TEIG0162 
TEIG0163 
TEIG0164 
TEIG0165 
TEIG0166 
TEIG0167 
TE IGO160 
TEIG0169 
TE IGO 170 
TE I GO 171 
TEIG0172 
TFIG0173 
TETG0174 
TE IG0175 
TE IGO 176 
TEIG0177 
TE1G0178 
TEIG0179 
TEIG0180 



( IJ ) = 0.C 
RK n J)=Q.O 
CO 15 K=1,M 
Kt<={K-l 

FPU J)=RP(IJi)+SRMlKK>I >*RV( JJ+KI 
15 RK<1J)=RK(IJ )+SPK(KK+t l+RVC JJ+K! 

C At.L MTRTR RV» R«tl J 

G i L L M T R T R ( M , M ♦ S RK , R V , R R , 11 
CD 42 J=ltM 
KK=P* [-M+I 

Y( I )=l./DSORTISRM(K,K} » 

I1=I>RNCCT-NCRT 
CC 42 J=1,NCDT 

4? XLRf II+J)=XLRni+J)>t'Yin 
EC 17 1=1, M 
KK=I^M-P 
CG 17 J=l, I 
t=Y(n*Y(j) 

IJ = KK+-J 

SRM(IJ)= E’i'SRMUJJ 
17 SRKUJ) = t>^SRK(IJ'> 

C 4 L L □ IJ T P UT ( KK K , P , NC D T , NO T , NOO 

GO TO 99 
22 CC 2 5 I = 1,M' 

25 E1GUI= UM) 

IF ( IST.EO.l ) Gj to 45 

10=IST-1 

C0 44 1=1,1© 

H = n - 1 I M 
DO 44 J=l,IO 
U1 = 11+ J 

KNl I.IT )=SPM( IJl I 
4 4 RK { IJ I ) = SPK ( IJ n 
45 CCKT1NU6 
DQ T4 I=l,N 
CO 34 J=1ST,M 


T6IGC181 
TE1G0182 
TEIG0183 
TEIG0184 
TEIG0185 
TEIG0186 
TEIGC187 
TEIG0188 
TEIG0189 
TEIG0190 
TPIG0191 
TFIGU192 
TE1G0193 
TCIG0194 
TE I GO 195 
TEIG0196 
TE I GO 197 
TEIG0198 
TEIG0199 
TEIG0200 
TEIG0201 

NNOO€»ERR,XLP,U,SRM,SRK) TE IG02C2 

TFIG0203 
TE I GO 20 4 
T E I GO 20 5 
TEIG0206 
TBIG0207 
TEIG0208 
i E IG0209 
"EIGU210 
TEIG0211 
TEIG0212 
TEIGC213 
TEIG0214 
TETG0215 
TriG0216 



JJ=( J-1) 

XLR ( I + J J >=0.0 
DO 34 K=1,M 

34 XtR < I + JJ>=XLR( I + JJ> + X(I + (K-U*N>«RV( U-U*M«-KI 
?1 CCMINUE 

URlTE;Ut2t> KKK 

26 FORMAT ( /2X, *lvn. ITF I TERAT ION= » » I 4* 2X , ' NOT CONVERGED* I 

^.5 return 

ENiD 


TFIG0217 
TEIG0218 
TE IG0219 
TEIG0220 
TEIG0221 
TFIG0222 
TEIG0223 
TEIG0224 
TEIG0225 




sue ROUTINE 

I NPUT ( I EQtNDPEf NET ,NDT ,MNC , NOOEf NBU* NRCU, ERP , NITR »M > 

TNPUOOOl 

r 



TNPuonna 

r 

TT SUPPLY IN'DUT I N FOR MAT ION 

TNPUOOOB 

C 



IMPUD'^C'A 

c 



INPUOOOS 

r 

DES 

comments AMD DESCRIPTIONS 

INPU0006 

C 

!CASP=1 

WING 

IMPU 'RR7 

C 

TCaSE=? 

BLADE P.C. CANTILEVER+CANTILEVFR 

TNPUOOOB 

c 

ICASE=^ 

BLADE B, C. CANTTLFVEP.+HINGx= 

INPU0009 

c 

T€AS'= = 4 

BLADE B.e. HTNGEtCANTUevE'’ 

INPUODIO 

c 

TCAS'= = S 

BLADE B.C. HTNGE+HINGF 

TNPUOfUl 

c 



I M PUD'"’ 12 

r 

I PUMCH=n 

MO PUNCH OUTPUT 

I NPUPn iR 

r 

T PLJNrH'=l 

P'lNCH OUTPUT 

INPUD014 

r 



iMDiinnis 

r 

T WF‘^T = 0' 

COUPLED MODE SHAPES GENERATED 

TNPU0016 

C 

tgufst^i 

N RFELFCTION ONLY 

INOU ni7 

r- 

IGIJcct=2 

V PFFLFCTION ONLY 

INCU0018 

c 

TGU'^ST = '^ 

PHI PE'^LFCTIPN ONLY 

TMPUOOIP 

r 

— r AUTION— 

TO DERIVE UNCOUPLED MODES» COUPLING TERMS SHOllLr RE 

TMPtJ >'2‘) 

r 

— r AUT!□lM — 

SET AT zcpo. 

INPLI0021 

1 . 

— r AUTIOM-- 

PR IN th*= wing, R AM'DA ,C0L f THET AF IN THE BLADE 

IMPijnoP? 

C 



iMPuan?B 

r; 

NET MO OF 

EL'EM^ENTS 

INPU0024 

r 

MTTR - MG 

D'P ITERATION allowed 

INPinUZE 

C 

(v|G OF MO'OES WAMTPP 

TNPUa026 

r 



I MOU0G27 

C 

ERR =RROP 

TOLERANCE FOP ITERATION 

TMD|)Oi'i?p 

c 

OMFG ROT AXIOM FREO IN RAD / SEC 

IMPU0029 

r 

P S.MOA-I MFLOW RATIO 

I NPUOOBO 

c 

CO'L=COl.LECTTVE PITCH ANGLE OFTERMINFP BY PERFOMANCF ANALYSIS 

TMPlimRl 

c 

SPKRrS PKC 

= FPPIMG CONSTANT OF TH'F HINGED ®'LAD'E IBEAMWISE 

I NPU0032 

r 


r. CHORDNISEl 

TNPtJDDBB 

r 

ALPHAH=H'ELPEK TO AV^TP thf SINGULARITY OF THE STIFFNESS MATRIX 

I MPUnOBA 

c 



IMPUD035 

c 

EIBE= El FOR SPANWISE RENDING 

IMPUT'D 36 



i~> o o .1 o D iD o o n o 


C EICE ET EOR COROW IS E BENOING 

c thietae=amglf of twist 

c ^WASP==^'^S':/'JNIT LENGTH 

C ESE=ELEMENT SIZE 

C 

C AMN =MASS OF NACELLE ANT ALL R 1 AOES OR TIP MASS TN CASE OF RLAnES 

C Pl° =PnSLiNG MOMENT Op IMERtTA OF NACELLE 

C PTY=YAWING MOMENT op TNFRTTA Of NAGFLIF» 

C HAl P OF THAT OF ALL BLAHFS AMD (H*+ 2 )*MASS Of ALL BLADES 

r PTP = n itching M0M'=NT of TNFRTIA Of NACELLF, 

HALF iJF THAT OF ALL BLADES AND (H**?)*MASS OF ALL BLADES 

PRUi=-'ACP COUPTNG OF WING DDF TQ ftl. ADF«: H*MASS OF BLADES 


IF irASF=:l, NEXT three DATA GJtPT» AND PU2 SHOULD PE ADDEn. 

GJ ^TQRSiaNAL RIGIDITY 

PI = HOMENT HP inertia FOR TQR'^ION 

nu? = MASS COUPLING BETWEEN TQRSTQN AND SPANWISF BENDING 
POSITIVE IF C,G. IS ahead OF ELASTIC AXIS 


MDPN= NO Qc DECREES QF FREEDOM PER NODE 
ND^N = if FOP BLADE MODE 
C NDPN = 6 FOR WINO. M0PE 

r 

C daemon /punch/ I punch 

COMMON /PW/ IC ASE t I GUEST 

COMMON/SPR TN6/SPKB, SPXC 

CQ'MMQN/HEl P/ Al.PHAH 

nniJRI.'^ OPFCTSION ALPHAH 

OIMENSTON NOPFIUtNODEI 1), NBCIJI 11 

DCURl F PRECISION FRR 

oIMFNS JON FTBF(;>ul ,F1CFI201 ♦ THfT AE ( 20 » » AMASEl 2D I * ESE ( 2D J #TN ( 21 1 
dimension GJ(2D) , PI(2D) tPll2 1201 

COMMON /ELEMl/ Ompc , F T P F , EICE , THFTAE . AMAS f. ESF, TN t GJ ♦ P I , PT12,AMN, 


I MRU0007 
IMDU^' 3 8 

I N°UO '^Oo 

TNDU0D4G 

T 

TNO 1 J 00 A 2 

IWPUDD43 

tmpuooaa 

INRUOOAS 
TMPU*iOAA 
I mpuooat 
IMRUOOAR 
TNRU004° 
TNPU0050 
INOU0051 
T ME>unn52 
TMPIJ005R 
TMPU-.KI5A 
INOU005S 
INPU0DS6 
iMPunrsT 
TNni!005fl 
TNRUDf'5'5 
TMPlJOr.ftO 
TNPU0061 
TNPUf'OiS 2 
TMPUC06'' 
INPU0Do4 
INPIKV'iSS 
INPU0066 
TNPU0067 
INOU006B 
I MPU0069 
iMPUor?''’ 
TNP00D71 
TNPUU072 



REPRODUCIBILITY OF THE ORIGINAL PAGE IS POQR, 


1 PTP ,PTY,PIP,PRW,8M,RI ,R»NPTT 
D IMAM'S I TN D'ES( ?0) 

10 FORMAT (1615) 

1 FORMAT (8'=10.6) 

4 format (5F 15. 7) 

140 Fr)OMAT(,?0A4 ) 

150 FORMAT(M) 

TF0=O 

PFAD( 5,149MnF5(l ) ,1 = 1 ,20) 
PFAOfS, 150 KASF 
PEA0(5, 150) TPU'MOH 

dfad|s, 150 ) T guest 

PFA.n (5,10) NFT,M!TR,M 

rFUCASF, 00. 1 ) GT TO 19? 

^'ljP^' = 4 
GO TO 1P3 

lo? Nn'’M=6 
S 1«3 rnrv|TiK.iijc 
NFTT^N'rT 
P FAO ( 5,1 ) FPP 
P n: A n (5,1) n M F r, 

RFAn(5,l) RAMOA 

PFAr.(5,l) con. 

PFAP( 5, 1 SPKC 

DPAP(5,1) ALPMAM 
PFAP 15,4) ( FIPF( T ),T=1,MFT) 
PFAO (5,4) ( cTC.tf T ),I = 1,NFT) 

REAP 15,1) ( THETflir^ I ) ,T-l,r^)FT) 

READ (9,1) ( AMAFFH ), T = 1,NFT) 
RFAP (5,1) ( FSF( I ),I = 1,M'FT) 
PFAP (5,1) AMM,piP, PI V,ptp,PRW 
TF ( NnPM ,FQ, 4) on Tn iqo 
PRAP ( 5,4) (GJ'( I ), T = l ,NFT) 

PFAP (5,4) (Pl( I ),T = 1,MFT) 

PFAP (5,4 ) ( PI12U ) ,T = 1,N = T) 

100 COMTT\'UF 


INPU'V'73 
IA'PU0074 
1NIOU0075 
TMPUr ''76 
1 MPU0077 
INPU0P7B 
1NPU0079 
TNr>tJOOBO 
jMPlj.nPl 
IM»U0082 
IUPU0083 

I MD(jrin.q4 

TMPU00R5 
T\'PUrOR6 
INP1J00fl7 
I N9IJ008P 

lA'OIIOi'Rq 
T NPU0090 
TA'ounoPi 
IN PUP-'' 9 2 
!Nt>U0093 
TNPU0CI94 
TN'PUrP9 5 
TM°U0096 
INPU^nq? 
! MPU0098 
TMDUn099 
TUDiJP 1P9 
T Nf>uoini 

TMOIJPIP? 
IN PUP 103 
T MPU0104 
TMPijr.i)5 
TNPijnin* 
1WPII01O7 



WRITP(6,LB1 V 

I NPimiOD 

191 

FORMAT ( ///5X,45( 

INPUOllO 


'03 TO f 15 1, 152, 153, 154» 155) » ICASE 

INOUoill 

151 


iNPunuz 

171 

FnPMAT(9X,»WIMG' ) 

T NRUD 113 


GC TO IRO 

INOUni 14 

15? 

WPTTE(6,172 ) 

T NPU0U5 

17? 

FORMAT { 9X, ' R5 AHE' ,3X, • BFAMtCANTI ' ,3X, • CMORn*C ANT I • » 

TNPII3116 


GG TO 180 

INPU0U7 

15? 

WRl TF{6,173) 

iNPuoua 

173 

FPPM AT( QX , ' PL AGE ' , 3X, ' BE AM’*tCAMTT * ,3X, •CHORO+HINGF • » 

TNoU'ni'^ 


GO TO iRO 

TN?U0120 

15^ 

)vRITE16,174) 

1NPU0121 

174 

FORM AT(9X, 'RLAOE', 3X, 'PEAMv^hinGF • ,3X, *CH0P0*C ANT I » ) 

INPtJOl?? 


nn TO 180 

TNPU0123 

15*^ 

WPITF16, 175) 

TN'>U0124 

175 

FORMAKOX,' BLADE' , 3 X , • B E AM+hI NGF • , 3X , • CHGPn*H I NGF » » 

IMOU0125 

190 

rOMTI NIJE 

INPUD126 


WRTTF(6,1R2) ides (I), 1 = 1,?'^) 

IMPIJ<3127 

IR? 

FrPMAT</5X,45(lH* ) / / / 1 5X , 2 0 A4/ // ) 

TNPU0129 


WRITF(6,q) 

TNPUni2B 


WRTTf(6,6T V) IPUM'CH ,10,1)^51 

1NPU013D 

6 00 

fhRM AT ( IX, » IPMNCH=* ,11 ,5X, ' IGUES1 - j T 1) 

INOU0131 


WPTT=^ 16,16) NpPM, NFT,NTTP ,M,EPR 

!MPlini32 


WPTTr-(^^HA) O-MEG 

T MOU'^13 3 

] l'+ 

P3rmAT(6H 0MFG-=,F15, 5) 

INPUni34 


WRITE) 6, 300) PAMDA 

INOU '135 

300 

FORMATIRH L AMR0A = , >=15.5 ) 

T MDU0136 


WPlTt:) 6,301 ) roL 

I MPU0137 

30 1 

format; 18H C'^LLFfT IVF P T T,H = , F 1 5* 5 ) 

INPU0138 


WP1T‘^(6,299 ) 3PKP-,5PKC 

INPU0139 

299 

format ( IX, • SPP TMG= *,F15.5,F15.5) 

TNOU014D 


WP I rr:(6, ?<38 ) alphas 

U'P’10141 

29P 

format; IX, • Ai.DU)i\H=' ,ni5.5) 

TNPU0142 


WPTT-I6, 183) 

IMOU0143 

133 

FCPMATIIX,' — FLAPPING PFNDTNG STIFFNFSS — *) 

TNniloi4A. 




W'RTTF(6,105> ( F I BE ( T I , T = 1 , NET ) 

WRITE(6, 1R4) 

184 FOR^ATdXt '--CHORnwiSE EFNOTNG STIFFNESS — M 
WRTTF( 6,105) ( FTCEI n rT = l ,NET) 

WRTTFIft, 1B5H 

IP5 FOPM4 ilX,' — ANGLE OF ThlST — •) 

<^P !TE( 6, lf‘4» (THFTAEt I ) ,I=1,NFT) 

THF= AT AN (P AM’DA*4 . 0/ 3 .0 ) 4C0I. *S I GN ( 0 , OMEG) 

OC 302 T=ltN'FT 

302 THFTAFI I)=THftAE( T ) *S TGM 1 . 0» OM'EG) +TH6 
W'PTTE(6,186) 

186 FHRMATUX, * --mass DISTP I'^"TI0N — ») 

WRITFf 6,l04I ( AMASEHl , i = l,NET) 

WRITF(6,1R8 ) 

188 FORMAT! IX,' — ELEMENT SI ZE — •) 

WRnF(6,1^4) ( ESE( I) ,I = l,NFT) 

WRITE(6,187I 

187 FPRMAT!0X,'TTP MASS', T19 ,'ROLL I NERTIA* ,T34, 'YAW INERTIA', 

e T49, 'PITCH INERTIA' ,T64, 'MASS COUPLING' I 

W R I T F I 6 , 1 04 1 A MN , P I R , P I Y , P I P , P RW 
NN=N'FT+1 

104 FORMAT (8 FI 5. 5) 

105 FCPMAt(5x,7F15 7) 

IF (N'DPN .EG. 41 GO TO 14 
WRITE (6, 1B9I 

189 FDRMATdX,* — TORSIONAL RIGIDITY — '» 

WPITF(6,105) iGJd ),T=1,NET) 

WRITE (6, 190 I 

190 FORM AT dX,' — MOMFnT OF INERTIA--' » 

WRITF(6,1G5) (Pi n >, I = 1,NFT) 

WR‘ TF(6,19i) 

191 FgRM^TIlx,' — MASS COUPLING ALONG SPAN — «> 

WPITFt6,105) ( PM2fI » , 1 = 1 ,NFT) 

9 FCRMAT (V8H * * fl2\\ INPUT DATA /// ) 

16 PnpMAT (25H NO OF DEGPE PEP NOnF= , 13/ 

1 17H NO OF FLFMFNTS=,I3/24H MO OF MAX TTFR ALL0EWD=,I3 


INPU0145 

INPU0146 

1NPU014T 

TNOU0148 

INPU0149 

INPUO 15.0 

I N PUD 151 

INPU0152 

INPLI0153 

INPU0154 

INPU0155 

INPU0156, 

INPU0157I 

INPU0158 

INPU0159 

INOUnifeO 

INPU0161 

INPU0162 

INPU0163 

INPU0164 

INPU0165 

INPU0166 

INPU016? 

INPU0168 

INPU0169 

INPU017O 

INPU0171 

INPU0172 

TNPU0173 

TNPU0174 

INPU0175 

INOU0176 

INPU0177 

TNPUniTS 

INPU0179 

INPUOlPO 


2 /IhH NO OF MnDES=, !3/ 6H ERP-f 
14 NPF=MnPN'+N0PN 

Nr'T=f\JFT*NDPM+NnPM 
MNC = N0T+NnE - (MOF*NnE-NOe U2 
ro 5 !=l»MFT 
MDPE(n=ND'E 
WTI=M'DE*I-NDE 
Mnn = NDPN*T-WPN 
NODFIMH +U=NDn+l 
MCOFINI! + 5 )=Mnn +2 
NrPEtMII + 2 ) = N'On +3 
NrOFfNlI 4 - 6 )=MDD-l -4 
NQDFCNII + 3 )=N© 0 +NDPN +1 
NODE (Nil + 7 )-NOO+NOP'N +2 
MODFtN!! + 4 )=NOO+NDPN +3 
NODE (Nil + 8 l=NDn+MDPN +4 
* IF (NDPN EQ 4 i GO TO 5 

NODEINTI + 9 )=N 0 D +5 
NODEtF'n + 10 ) = NOO +6 
NODE (NT I +ll)iNnO+NDPN 4-5 
NOnE(NII +12 J = NDn+-NOPN +6 
5 CONTI NtJE 

GO TO (5Tl,5n2,5'’:3,504*505UICASE 

501 MSU=NOPN«-l 
GC TH 506 

502 NPU =4 

506 DC 6 I= 1 ,NBU 

6 NBCUin^I 

GC TO 507 

503 NBU =3 
NBCIK n = i 

NPCU (2)=2 
N'RCU(3) =3 
GO TO 507 

504 NBll =3 
NBCUl U = l 


F 15 . 5 I 


IMPUOlftl 
1 MOU 0152 
INPU 0183 
TNPU 0184 
TNPUCIR 5 
INPU 0186 
TNPU 0137 
INPU 018 P 
INPU 0189 
INPU 0190 
TNPU 0191 
INPUD 192 
TNPU 0193 
INPU 0194 
INPU 0195 
TNPU 01 O 6 
IN°U 0197 
INPU 0198 
INOU 0199 
TNPU 0200 
TNPU 0231 
INPUO 202 
TN® 1)0203 
TNPU 0204 
INPU 0205 
INPU 02 n 6 
TNPU 0207 
TM PUD 20 a 
IMPU 02 O 9 
TNPU 0210 
INOU 0211 
INPU 0212 
1 NPU 0213 
TNPIJ 0 214 
TNOU 0215 
INPUT 2 16 




NBCtJ(2J = 2 

INPU0217 


NBCU13)=4 

TN8U0218 


GO in 50"' 

TNPU0219 

505 

NPLI=2 

TN»UO220 


NBGUn > = 1 

INPU0221 


NBCI)(2) = 2 

TMPU0222 

507 

CONTINtfE 

INPU0223 


R=0 

TNPU022A 


DO 2 T=l,NFT 

TNi>M0 225 

2 

p=p+FSB(n 

INOU0226 


TN(NFT + U=AMN*P*nMFG*CMFG 

IN«U0227 


DO 3 1=1, NET 

IN PUP 22 a 


n=NET-T + i 

TNPU0220 


P=P-FSF{ I T ) 

IN'>UC23n 

1 

■r-M(ni= TMHI + 1 ) ^AMASE( Tn*(R + ,5*ESFUn )*ESE( m*n«FG*ONEG 

!N8tJ0231 


HRITF (6,151 

INPU0232 


WRITE(6,F>4) ( TM{n,! = l,NN) 

TNPU0233 

15 

FORMAT (///• TENS ION DUE CENT^TF FORCE') 

TNOU0234 


P = 0. 

INPU0235 


81=0. 

INPU0236 


RM = 0 

!N»U0237 


no 11 1=1, NTT 

!N®U023B 


BM=BM'f AMASEd )’^ESF( U 

INPU023R 


PR=R + ESEn ) 

TWPU02A0 


at= 81+ AMASEt T )*(PR**3-P*+3)*. 33333333 

INPU0241 

U 

R=RR 

IMPU0242 


br=pm+amn 

INOU0243 


RT=R I+AMN*R*R 

INOU0244 


RRTTF (6,12) BM,RI,R 

1NPU02^,5 

12 

FORWATI/' mass =*,E13.5/ • MOMENT PF INERTIA AT POnT = « , F13. 5/ 

IN»U02^6 


1 • TOTAL LENGTH OF THE REAM=' ,^13.5 ) 

TNPU0247 


PFTU'JN 

tN«>IJP24a 


FM'D 

INPU024P 



o o o o o o 


SLBH0J7 INf ELEMK (EKT,tMT ,NOE,NEJ 

n CCNTFOL TKC GENERATION OF ELEMENT STIFFNESS AND MASS 
MATRICES 

NCF=8 fCP PLACE MODE 
NGE=12 FCR WING MOrS 
CCMMGN/SPRiNG/SPKrtiSPKC 
CCM.MQN/FLLP/ ALPHAH 
DCLBLE PRECISION AtPHAF 
DOUBLE PRECISION EKT.EM 

DIMENSICN EKC(4,<^), ETCI^,iiI , EMC ( A #4 3 , EKT I U i EMTC 1 » 

DI MEN5ICN CtBEl2 0),EKE(20> , THETAE (20 » » AMASE t2G ) , ESE 1 20 1 #TN < 2ll 
CIMENSICN GJ(2G3 , PK2C1 ,PI12 (201 

COMMON /ELEM.l/ OMEG » El 6 E , E IC E, TMETAE , AMAS Et ESE, TN, GJ , P I , PIl2fAMN* 
1 PIRtPI Y»PIP»POW,3M,0I ,P ,NETT 
NET=NETT 
EIB=eiPElNE) 
g IG = £ICE<N£ ) 

TFETA=THETAE(NE ) 

AMAS=AMASE(NE) 

ES=ESE(NE ) 

T= (TMNEJ+ TNlNE + 1) )*.5 

¥.SS = ESvES 

IF (NDE .E0.83 GO TO 9 
GJE=GJ(NE3/ES 
PIE=PI(NE) *ES 
PI12E=PM2(NEI ^ES 
9 eKC{ltl3=12. 

EKG( 2, 1 1=6. ^ES 
EKG(3, 1 »=-I2. 

EKCI A, 1 } = C.=^ES 
EKC(2,2 J=A.*ESS 
EKC(3,23=-6.*ES 
EKCC 4,2 3 = 2.=^ESS 
ERGO, 33 = 12. 


ELEMOO'L- 

ELEM0002 

ELEM0003 

ELEM0004 

ELEM0005 

eLEM0006 

ELEMOriO; 

PLEM0008 

ELEM0009 

E I. E MOO 10 

EL EM 00 U 

ELEM0012 

EL EM 00 13 

ELEM0014 

ELEM0015 

EL e MOO I 6 

ELEM0017 

ELEM0018 

ELEM0019 

ELEM0020 

ELEM0021 

ELEM0022 

ELEM0023 

ELEM0024 

ELEM0025 

ELEM0n26 

ELEM0027 

ELEM0028 

ELEM0029 

ELEM0C3G 

ELEM0031 

ELSH0032 

ELEM0033 

ELEM0034 

ELEM0035 

ELEM0036 



EKC< 4,3)=-6, ^ES 

ELEM0037 

EKe(4,4l=4.«ESS 

ELEM0038 

fcTC(l,ll=1.2 

EI.EM003S 

ETC{2, !)=• 1*ES 

ELEMi)04a 

ETC13, U = -l.2 

ELEM0041 

£TC(4, 1)=.1#ES 

ELEM0042 

ET C(2» 2 )=. 13333333 *ESS 

ELEM0043 

£TC(3,2)=-.1^ES 

ELEM0044 

ETC( 4,2 Q3333333#ESS 

ELEMG045 

ETC13,3 )=U2 

ELSM0046 

ETCt4,3)=-. l*ES 

ETEM0047 

ETC(4,4»=, 13533333+ESS 

ELEM0048 

E^'C( 1, U = 156./420. 

ELEM0049 

ErC{2, 11=22. /420.*FS 

ELEM0050 

EWC(3, l)=54./42G. 

ELBMJ051 

Ef»C{4,l» = -13./420.'*'ES 

ELEM0052 

£MC( 2,2J = 4,/420.f ESS 

ELEMC053 

E>'C(3,2)=-EMG(4, 1) 

ELEM0054 

EKC(4,2)=-3./420.*ESS 

ELSM0055 

EKC(3,3J = EMCtl, 1) 

ELEH0056 

ENC{4,3)=-EMC(2,1) 

6LEM0057 

Ef'G (4,4)= EMC (2, 2) 

ELE«G058 

CG 10 1=1,4 

ELEM0059 

CC 10 J=1,I 

ELEM0060 

EVC { J, 11= EMC ( I , J) 

EL EM006l 

EKC( J,I )= EKC( I,J) 

ELEM0062 

ESSS=ESS*FS 

ei.EM0063 

S I=SrNI THETA) 

ELEH0064 

CC=CCS(THETA) 

ELEM0065 

0={ CIB»C0*C0 ♦E‘IC>l'Sl4tSI )/ESSS 

ELEM0066 

C=(E(C«CG=>Ca + EIS*SI'*Sn/ESSS 

ELEM0067 

6C=(PIC-Eie)=«SI«C0/ESSS 

ELEM0068 

TE=T/ES 

ELEM0069 

AM=GMEG4'QMEG*AMAS*ES 

ELEM0070 

AMAE =AMAS>pES 

ELEM0071 

CG 5 1=1,4 

ELEM0072 



II = ( 1/2 
!-£• = ( 1 + 31/2 

CC 1 J=l, I 

eKTUI* J)= B-f=FKC( I , J ) + Te*ETC(I , J1 
FMT(ri+Jl= AMAE*EMC( r,J » 

EKTUA + J + A)= C«EKC(I,J) + TE’^ETCdfJI -AM*EMCn,JJ 

1 EMT ( l4+J + ^)= AMAE*EMCn ,J) 

CC 2 J=lfA 
EMTH4+J»=0. 

2 EKT( I4+J » = BC + EKCU ,J) 

IF (NDE .EC. 81 GO TO 5 
1 E=n + e>*( 1 + 7) /2 
CC 5 J= l, I 

EKTt 18+ J+8)=GJE+ETC( 1 , J ) 

3 EKT(18+J+6)- PIE >t‘EMC(I,J) 

EG 4 J=l»4 

EKT(I8+J l=C. 

EKT( I8+J + 4 ) = C. 

E>T ( I8+J+4 )=C. 

4 £PT( I 8+J)=PI 12E’!‘EMC( I , J 1 

5 CCNTINUE 

IF (NE.LT.NET) GD TO 100 
Ef'T(6)= EKT(6)+AMN 
ENT (28) =EMT(28)+AMN 
IF(NCE.EQ.8) GQ TO 100 
ENT(IJ) =EMT(1U)+ PIR 
EFT (36) =£MT(36)+ PIY 
EFT(66)= EMT(66)+PIP 
6NT(58)= 6NT(58)+ PB^ 

ICO IFlNE.GT.i) GO TO IGl 

EKT( 3)=ENT( 3I+SPK8 
EKT(21) = Et<Tt21)+SPKC 
IGl CC 1C2 I=lf36 

1U2 EKT( I )=EKT( I )+EMT( I )*ALPHAH 
RETURN 
END 


E I, c MOO 7 3 
ELEM0074 
ELEMG075 
ELEM0076 
ELEM0077 
ELEFI0Q78 
ELEM0C79 
ELEN0080 
ELEMQ081 
EL EH0082 
ELEM00B3 
EL6MG084 
ELEM0085 
ELENG086 
ELEM0087 
ELEM0088 
ELEK0089 
eLEMaO90 
ELEM0091 
ELEN0092 
ELEMO093 
ELEN0094 
ELEM0095 
ELEN0096 
ELEK0097 
ELEM0098 
ELEN0099 
ELcMOlOO 
ELEMOlOl 
ELEM0102 
ELEM0103 
ELEN0104 
ELEH0105 
ELEMOltib 
ELEM0107 
EI.EM0108 



SUBPUUT 1 Nfc MESH* E , f-iE T t NOT ♦ NCHT t MNC i MN f NliD, NNUDfc, I COL, INUM, 

INDEX) 

C 

C TO CALGUiATE MFSh IMPORMi^THlN GF THE FINITE CLEMENT 

C 

D!‘'lFN5inM NnO( 1) , KNODE ( 1 ) , ICOL U) , INUMl) , NDPE( 1) 

IFINBU ,GT. U) GC TC ILO 
DO 99 1=1, NOT 
99 NCD(f)=I 
NCCT=NDT 
Gb TO 98 

L ,, j no 22 I=1,N8U 

IF n uGE. NBII) GD TC 10 1 
11=1+1 

OC 21 J=I1,NRU 

IF ( INUTM) .NE. INUHt J ) ) GC TC 21 

IF iJ.GE,NBU) GO TC 2U 

J1=J+1 

DO 19 K=J1,NBU 

19 INUM(K-1)= INUf'(H) 

20 NBU=NBU-1 
J = J-1 

21 CONTINUF 

22 CONTINUE 

10 1 DO 1 I = l,NCT 
L N,lD(I) = t 
Cn 7 ! = il,N'tiU 
I1=INUM( 1 ) 

2 NOn(Il)=G 

DO 3 I=2,NDT 

3 Ni 0( I)-NCC(I )+NJCn-l) 

MCCT = NDT-NBb 

nn A 1 = 1, NB'U 
Il = INUMI I ) 

4 Nr.niii) = NcnT+i 
9« C^NTI^,■^JE 


MFSHOOJ I 
MESHJ002 
MESH0003 
MESH0004 
MESH00a5 
MESH0006 
ME SHOO 07 
ME SHOO OS 
MESH0009 
MESHuOlO 
MESHOOll 
MESH0012 
ME SHOO 13 
MESHOOIA 
MESHuOlB 
ME SHOO 16 
ME SHOO 1 7 
MESH0018 
MESH0019 
MESH0020 
MESH0021 
ME SHOO 2 2 
MESH0023 
MESH0024 
MESH0025 
MESH0026 
MESH0027 
MESH0028 
MESH0029 
MESH0030 
MESH0031 
MBSH0032 
MESH0033 
MESH003'^ 
ME SHOO 3 5 
ME SHOO 36 



1 1 = ^ 

no ] = l»NFT 
JJ = t^jDPE H ) 

DO 54 J=l,JJ 
5-f JC'JL (J)=f^NCDE( J>I ! ) 

DO 55 J=1,JJ 
J1 =ICOL< J ) 

5 5 NN in[:( J+I I )=NJC ( Jl ) 

5 n = ii+jj 

DO b I=1,NCDT 

6 ICnL(I)=I 
H - j 

no 88 1=1, MET 

jj=NDPF < r> 

IM1M=MPT 
DO 7 J=l,JJ 
I h: = NNPOE ( J + T I ) 

7 .LT. IMIN) IMN=IN 

DO a j=i,jj 
rD=r N-CDfH J + i I J 

a IFIICCUIDI ,GT. IMIM)' IC CL ( I D 1 = I M I N 
58 II=II+JJ 
IMUP( 1)=U 
DO 5 I=2,NCDT 

9 IMUMU ) = I M»M{ I-l ) + I- ICDL ( I ) 

W;=INUM(MCnT)+NCDT 
WF'lTE(6,lul FNjM’NC 

lo FORMAT (77X, 'PAX. SI2E UF STF 1 S • , 1 6 ,5 X , • S Pf C 1 f I ED SIZE IS ‘,16) 
IMD6X= 1 

n-(MNC ,I.T. MM INCEX=: 

RETURN 

END 


MESHU037 
MESH0038 
MESH0039 
ME SHOO 40 
MESHG041 
MESH0042 
ME SHOO 4 3 
MESHuQ44 
MESH0045 
MESH0046 
MESH0047 
MESH0O48 
MESH0049 
MESH0050 
ME SHOO 5 I 
MESH0052 
ME SHOO 5 3 
MESH0054 
HESH0055 
MESH0056 
MESH0057 
MESH0058 
MESHUU59 
MESH\j06u 
MESH 0061 
Me$.Hu062 
MESH0063 
MESH0064 
MESH0065 
MESH0066 
HESHu067 
MESH0068 



non 


i I J A R-:iijT INS AS B V ( S T K ♦ S T , I E« f L. K , E M , NO PE , ND T , NC DT i NN J DE , MN , N ST , I N 

TO assemble and rCMSTRATN aOUNDARY CCNOITIONS 
IMPLICIT PFAL^BI A-H,0-Zi 

DI. 4FNS row STK ( I ) » S TH ID , SKI I ) t EM ( 1 ) , NOPE ID, NNODE ( 1 ) t I NUM ( I ) 

iD=NCDT*l 
on I l = t,M!N 
5TK (I )=C;.u 
1 STMlI') = o.,^ 

1 1 =G 

DO 15 N=1,NET 
J J^ NOiP E ( N ) 

TFITEO .EO. 0) GC TD 3 
IF IN .GT, 1) G" TO R 


ASBVuOOl 
ASBV0002 
ASRV0033 
ASOVOOOA 
ASBVOa05 
AS aVu006 
ASaVuOOT 
ASBVJ008 
AS B VO 009 
ASriVuOlO 
ASBVOCU 
AS3VQ012 
ASBV0013 
ASBV0014 
ASBV00.15 
ASBV0016 


3 CALL FLEMKIEK , tJJvN) 

B DO lA 

KI = ( I’M-n/2 
KFA = NNOnF I IDE ) 

IFIKMA .GE. IP) GO TO 14 
CO 13 J=l , I 
KNA=NMOOE( II+J) 

IFIKNA .GE. ID) GO TG 13 
KA=INUPtHlYADKKA 

IFIKNA .GT. KMA) K A = I I KNA ) +KMA 

STKIKA) = fiTKIKA)4FK IKI + J) 

S r P I KA ) = ST P IK A ) ♦ £W IK I ♦ J ) 

13 CONTIMUF. 

14 CCNTTNUF 
13 ii=jj'4-n 

RETURN 

END 


ASBVC017 

ASRV0018 

ASRV0019 

ASBV0020 

ASBVU021 

ASBV0022 

ASBV0023 

ASBV0024 

ASBVU025 

ASBV0026 

ASBV0027 

ASBV0028 

ASBV0029 

ASBVU030 

ASRVOOSi 

ASRVC032 

ASRVu033 



c 

c 

L 


SUi^r- 3UT INC FAC(STF,NDT,NNnG» IC3L,INIJW,U) 


FACTiJkIMG A SYoMETPIC i^ATRIX INTO LITL’?^ 

rviP't ICIT PtAi^BI A~F,n-Z) 
niMFNS IflN STF m ,IC jU U ,IMJM U .U ( 1) 
NN0G=C ..-.7 

IFISTFim ^,1^3 
I IZR=I 

09 >JRi TEI 6 , ILC ) iZR 

1 JU FuFMATI/ 2 X, ’The* ,IA» *TH OIAG. AFTER FACI.= 
NNnc=-i 
RETURN 
^ NNDG=1 

3 IF (NOT .LT. 2) GC TC 1 1 
on 10 IR=2,N0T 
H = ICQL( IRJ 

IF ( II .EC. IR) GC TC n 

J^= INUMU R I 

I F = I R-1 

no 5 IC=n,IE 

IMAX = I I 

IFUI .LT. ICCLdO) IMAX = ICCUICJ 
JE=IC-1 

S1JV=STF { JR+IC) 

TF(JE .LT, IMAX) GO TO 55 
J'C = INUMUC) 

DO ‘t J=TNAX,JF 
A SUM= SUM- L t J ) « S T F I )C + J ) 

55 U( irj=SUM 

5 STF(JR + IC)=SUP/STF<IAUM( ICI + IO 
JJ=JR+I R 

no G J= 1 1 1 1 

6 5TF{JJ) = STF’ . J dSTM JP + J) 

I r (bTFi u ) > r ,7, iG 

7 17R = IP 


F A C T j 0 Lt 
FAC, TOO 0 :- 
FACT 0003 
FACTO 004 
FACTOOOE 
FACTOGO., 
FAC TOC 0 7 
FAC TOGO 0 
FAC 1 0009 
FACnoiJ 

. 0 , IMCl'IMFLCTE FACT.* I FACTuGi: 

FACT0012 
FAC Tool •) 
FACTU014 
FACT0015 
FACTOOio 
FACTQOiT 
FACT 0 GI 8 
ACTo0l9 
«CT0020 
FACT002L 
FACT0022 
FACTD022 
FACT j024 
FACT0025 
FACT0026 
F ACTuOZ'’ 
F AC Too 2 3 
FAC70029 
FAC TOO ?0 
FAC70031 
FACT0032 
FACT0033 
FACT0034 
FACTU035 
FACTG036 



Gi) T1 90 

FACT0037 


Nf'10G=iVNDG+l 

FACT0038 

Uf 

CGMTlMUr 

FAC. TOO 39 

li 

WRITE (6, ion NNDG 

PACT0040 

11 

FnP' 1 AT(/ 2 X»»Na. CF NEGATIVE C I AGS . = • , 1 4, 5X , ' FACT . COMPLETED') 

FACT0Q41 


RE TURN 

FACT00A2 


END 

FACTOO^a 


SUB lUUT 1 N E MT R T P ( M » N , R f » X L R , X « I S T i 
N'ATRIX MULTIPLICATICN 


REALMS ( A-H,Q-Z I 
n I NS I r.M RM ( 1 ) , X LB { I > » X U ) 
on ? I=IST,M 
II = ( I- 1 ) '^N 
IJ-f T-l l+M 
on <1 J=l,I 
JJ=tJ-l HN 
PM( IJ+J) = C.O 
DO 2 K=1,N 

RM( TJ^-J J = RM IJ-U ) + XLR( 1 1 vK ) i=X ( J J <-K ) 

DO 3 I=IST,P 

JJ^( 

OG 3 J=l,I 

RM{ U-l)*M+n=PM(JJtJ) 

RFTNRM 

ENn 


MTRTOCGl 

MTRT0002 

MTPTUCU3 

f4TKT0004 

MTRT0O05 

MTRTijUu6 

MTRTUOOT 

MTRTuOOS 

RT0009 

mtrt:joio 

NTRTOOn 

MTRT0012 

MTRT0013 

MTRT0014 

MTRT0015 

MTRT0016 

MTRT 0017 

MTRTOO10 

MTRT0U19 

MTRT0020 



S U B I JT T ti E MU'LT Z < S T F , X » Y , NtJT , ^ , I CO'L , I NUM , M« ) 


C 

C MATRIX MULT I PL 1C ATI CN 

C 

IHPL 'IC IT RE AL^>fl( A-H,G-Z) 

OI 'IENSIDN STFi 1 ) ,X( U f Y( U, ICCL ( U , IMUMd) 
nu 1 I=1,NCT 

1 Y(I)=U.O 

no A I = 

I I = ( I - 1 ) T- N D T 

DO 3 IR=l,NDT 
IS = INUM( IR ) 

IC-ICEL UR) 

IF=IR-l 

IFire .GT. lEJ GC TC 3 
DO ? j-ie,ie 
S = STFI IStJ ) 

Y( iR)=Ynpi+s^-xn i+Ji 

2 Y( J )=Y(J) + S ^X( II + IP ) 

3 Y ( I P ) = Y (I R J +ST F I IS * I P ) ( I I ♦ I R > 

DO A J^UMDT 

XM i+J)=YIJl 
A Y(J)=C.C 
RETURN 
END 


moltdooi 
MULT 0002 
MULTD0U3 
MULT0004 
MULT 00 05 
MULTO0O6 
MULT0007 
MULT0008 
MULT00U9 
MULTOOlO 
MULTGOll 
MULT0012 
MULT0G13 
MULT001<> 
MULT0015 
MULT0016 
MULT0017 
MULTOOia 
MULT0019 
MULT0020 
MULT0021 
MULT0022 
MULT0023 
MULTu024 
MULT0025 
MULTrjC26 



SUHHJIIT irvi^ SULZ{ STF,U,NlJTrM, 1 COL , I NljM , N N > 

c 

C S1LVE (LD1»MU)=U FOR GIVEN L uF M VETTORS OF LENGTH NOT 

r 

IN FLIC IT RF^L ‘R(/i-F,a-Z) 

OINENSION STF { 1) tU< U ♦ IC3U 1) , I N*JM ( 1 1 

IF (NOT ,LT. 2) GQ TC 3 
Of! 2 IR = 2»NDT 
JI =ieCLI IR ) 

JF=IR-1 

IFCJI ,GT. JE) GC TC 2 
DO I 

1 I = ( I-I MNCT 
IS = I I + IR 
DO 1 J=JI,JE 

1 U( IS } = U( IS)-STF( IN'LN( IR> fj )^U( m-J ) 

2 GGNTINUC 

3 DC 4 T = M'M»NrM 
I)=(l-1)*NDT 
Of: 4 IR=1,NDT 

4 U( lUIR ) = U( I 1+ IR )/STf ( INtJMHR ) + IR) 

If (NOT ,LT, 2) GC TC 7 

DO 6 IK = 2tN.OT 
IP=NDT-IK*2 
JI = IGCtLURJ 
JE=IR-l 

TF(Jt .GT. JEI GC TO 6 
Du 5 I=NR,mmm 
I I = ( I-l I^-MOT 
IS=IM-IP 
no 5 J^JItJE 

3 'J ( M+J )=U( I I+J l-STF ( INUN( IP ) + J > >U( IS J 

6 Cr NT INUF 

7 kFTUFN 
END 


SOLZOOOl 
SOL ZOO 02 
S0LZ0O03 
SOLZ0004 
SQLZODOS 
S0LZ0006 
SGLZ0007 
SGLZO008 
S0LZ0O09 
SOLZOOlO 
SQLZJGII 
S0LZ0012 
SOLZ0013 
SOLZ0014 
S0LZu015 
SOLZ0016 
SOLZ0017 
SOLZ0018 
S0L2Q019 
SOLZD020 
SOL ZOO 21 
S0LZ0022 
SOL ZOO 2 3 
S0LZO024 
SGLZ0D25 
SGLZJ026 
SQLZJ027 
SOL Z JO 2 8 
SQLZ0029 
SDLZ00 3C 
S0LZ0u3l 
SOL ZOO 3 2 
SOLZ0033 
SOL ZOO 34 
S0LZ0035 
S0LZi)U3o 



o n O 


S U-e. RG UT I N t DN R C j T ( N , A , X I. » /V S 

EIGFNVALUE ANAtYSIS RuUTINF 

D I MENS lOM A ( n , H ( I ) , XL { 1 ) , X( n 
DO?HL E PPECISirCN A , 6 » XL , X , SUr< V 
K= I 

o :) I G O J = 2 » M 

( J-l » 

on 100 I=l»J 
L = L + 1 
K = K + L 

UO PfK)=BrL) 

MV = i/ 

CALI EIGEN ( 0 ,Xt^»f^V) 

L = 0 

DO lie J=l|« 

L=L + Ji 

I Ij XL( J) = 1.0/D5QRT( CABStB(Ll ) ) 

K= J 

on 115 J=i,y 

DO 115 I=1,M 
K = K+1 

115 BIKI=X(K)^XL{J) 

DO 120 1=1, N 
N 2 = 0 

nn 120 J=i,M 
N I = I T - D 
L=M*<J-1»+I 
x(L )-j.r 
no 120 K=l,M 

N 1 = N 1+ 1 
N2=N2+1 

12 j X(LI=xn ) +H<Nl h'^A IN 2 ) 

L=0 

no 1 it. J= 1 , p 


DNROOOOl 
DNR00U02 
ONR00003 
DNRQD004 
DNR00005 
DNR0G006 
DNR00007 
ONROuOOB 
ONROGOOg 
DNROoOlO 
DNROGOll 
ON R 000 12 
DNP00013 
DNR00U14 
ONR00015 
0NR0u016 
DNR00017 
DNR00018 
0NR00019 
ONR00020 
DNR0UO21 
DNR00022 
DNR00023 
ONR00024 
0NR0U025 
DNR00026 
DNR00027 
DNR00U28 
ONR00029 
PNR00030 
DNR00031 
DNR00032 
ONR00033 
0NR0003A 
0NRDo035 
DNR00036 




nil i3r i = 

DNR00U37 


M 1 = I - M 

DNRD0038 


4?=K*(j-n 

DNROCU39 


L=L + l 

DNR00040 


A { Ll=l.i. 

DNR00041 


Oil 13C K = 1,M 

nNR00042 


Nl = M+K 

nNRD0((43 


N2 = N?.+ 1 

ONROC'044 

1 Kj 

A(U = A(U+X(Nl) P(N2I 

DNR00045 


CALL LI GEN IAtX,f'»MV) 

DNR00046 


L= 

DNR00G47 


00 l<tO li = l»M 

DNR00048 


L-LfI 

DNR00049 


XL(n = A(L) 

DNR00050 


no 150 1 = 1 , M 

ONR00051 


N2=r 

DNR00052 


nr i5u j=i,M 

DNR00053 


N1=I-M 

0NP0a054 


L = M-^< J-l > + I 

DNR00055 


A(U = O.G 

DNR00056 


DQ 150 K=l,M 

r)NROOU57 


M1=N1+M 

DNR00058 


N?=N2+l 

LNR00059 

1 5J 

At L) = A(L) +8(Nl J-'=X<K2 ) 

0NR00U60 


L = 0 

DNR00061 


K=0 

f)NR00062 


OG 180 J=1,M 

DHR00063 


SUMV=C.O 

DNR00064 


DO I7u I=L,M 

DNR00065 


L=L+l 

DNROOU66 

1 7-J 

SUMV = St)MV + A (L M A ( L ) 

DNR00067 

1 75 

sir'iv=DSQnTtsijMvi 

DNR00068 


DO 180 I=l,N 

DNR00069 


K = K+ 1 

0NRC0070 

l.-Ju 

X<K)=AtK )/SUMV 

DNR00071 


RETURN 

DNR00072 


EH!) 

DNR00073 



SiJBPOtlT FNE EFGENfAtJ^ 

EIGhMVAlUe ANAIYSIS PQUTINE NEEDED IK ONRDOT 
OIMENSIDN ACU,R(1) 

Dtnj'HtE PKEC HlCiN A » ANDK y , AN RMX tTHK ♦ X t Y , S I NX , S I NX2 |CC SX . 
I CnSX,2tS INCS»RAN'GE 

RAMGE = 1 . Gr-12 
iFiMV-n io»25,ia 
lu IO=-N 

D;i 20 J = ili,M 
IQ= le+N 
no 20 I=lfN 

P(IJ)=G.G 
IF(I-J) 2C,15,2C 
ll> R(IJ) = l.C 
2j CrNTINllE 
25 ANCPM=OoO 
DO 35 I=1,N 
DC 35 J=I,N 

30.35,30 

3u IA=I + ( 

ANGRH=AND«r< + A ( lA )-*A( IA» 

35 CONTINUE 

IMANORM) 16 5. 16 5. Al 
40 ANCRN=1.414'"'DSCRT ( ANCRMJ 
A N R YX= ANC R M3 R A NG E / F L C A T ( N » 

IN 0=0 
THK=ANORM 

45 THR=rHF/FLOAT(N I 
50 l.= l 
55 M=L*1 
6u M0=(M*M-M)/2 
L0 = (L*^L-U/2 
LM=L+MO 


EIOEOJOl 
EIGEUG02 
FIGE0G03 
tIGEuOOA 
EIGE0005 
EIGE0006 
EIGE0007 
EIGE0008 
EIGE0009 
EIGEOOHJ 
EIGEOOll 
EIGEU012 
EIGE()D13 
ElGEOUlA 
EIGE0015 
E I GEGO 16 
EIGE0017 
EIGE0018 
E1GE0019 
EIGE0020 
EIGE0021 
EIGE0G22 
EIGE0023 
EIGE0024 
EIGE0025 
EIGE0026 
EIGE0C27 
EIGE0028 
EIGE0029 
EIGE0D30 
EIGE0031 
EIGEU032 
EIGEw033 
FIGEu034 
fc I GEO 03 5 
FIGP^0U3b 



6'^ 

ir (r.4RS( A(LV))-THR > 130, £ 5,65 

fcIGF0J37 

£5 

1ND=1 

tIGE Ju38 


LL = L+L0 

EI&E0039 


M'1=M+K0 

EIGE J04D 


X=:,5M AdU-AtP'Nn 

EIGE0041 

o3 

Y=-A{LM ) /DS0RT( a (L^')■^A ( LM )+X'-X » 

FIGEGj42 


IF (XI 7C,7 5,7 5 

fcIGE0043 

7.'- 

Y = -Y 

tIGEOOAA 

73 

SIKX:-- Y/tJSOFT (2. jM l.l;+n:SGRT( I.O-YtY ) ) J ) 

EIGECC45 


SI NX?=SI NX^ SI MX 

E1GEG046 

7a 

rOSX=rSGRT(l .u-S INX2 1 

EIGE0047 


CCSX2 = CCSX+r.3SX 

EIGE004B 


SIMCS =SINX--CGSX 

EIGE0049 


ILQ^N’! (L-li) 

EIGE0u5O 


IM0=N* (M-1) 

EIGE0051 


DC 125 I=1,M 

EIGE0052 


10= ( ivi- n/2 

EIGE0C53 


ir(I-L) 80, 115, 3b 

EIGEOU54 

3u 

IF(I-M> 85,115,^0 

EIGED055 

35 

1,'lxI+MO 

EIGE0056 


GO TO S5 

tIGE0057 


IM=y+I0 

EIGEG05B 

^5 

IF(I-L) 100,105,105 

EIGED059 

liJD 

IL=I+LQ 

EIGE0060 


GU TO 110 

ETGEUC61 

1U5 

IL = L<-I0 

FIGEJG62 

1 lo 

X=A(U Hcnsx-A ( I Ml^STNX 

[;iGE0063 


A( IN1 = A( RI*SUX4A( IM>«r.0SX 

EIGEU064 


Adi. ) = X 

EIGE0065 

1 15 

IF(MV-U 120,125,120 

F IGE0066 

1 20 

ILK= ILQ+I 

tIGE0O67 


rMR=IM0*I 

cIGEl 068 


X = R(ILR|»^CCSX-F< ( IMR )*SINX 

EIGE0069 


RdMR) = R( ILRI' SINX + F (IMP >»CnSX 

EIGE0070 


R ( ILR) = X 

EIGE0071 

125 

CCNTINUF 

FIGE0072 




X=^.U=*A(LM)-;^ SINGS 

EIGE0O73 


Y = A { L U *'C GS X? + A ( YM ) *SI NX 2-X 

E I G EC/07^ 


X=A< LU'-S INV2 + A (NKM CCSX24X 

EIGE0075 


A ( LMJ = ( A( LU-A{yf/) I’^SINCS + AILM)^ <C0SX2-5INX2 > 

EIGE0076 


A( LL ) = Y 


EIGEJ077 


A MM MX 


EIGE0Q78 

1 -JJ 

IFIM-M) l35,lACr 

135 

EIGE0079 

1 35 

M=M + 1 


EIGE0080 


GCi TO AG 


FIGEuOei 

1 't J 

IFIL-<N-t)) M5, 

15C, l/-»5 

EIGEJ082 

U5 

L=L+1 


EIGEC083 


g:) n ‘'S 


EIGEOOS'^ 

1 5^ 

m iNP-l:) 160,155, IGO 

EIGE00B5 

1 5 5 

I Mn=.j 


EIGEC086 


Gu 10 5.' 


EIGE0037 

1 (; .. 

I F ( TH''-ANRMX ) 16 

5 , 16 5 , A5 

E IGFOU86 

U 5 

IC = -N 


FIGE0089 


H! i 115 M 1 , M 


EIGE ju90 


I i.'= I Q<-M 


EIGE0D91 


U =l + ( I ' 1-11/ 2 


tIGEU092 


( 1 -2) 


EIGB0093 


Pi 1R5 1=1, N 


EIGE0094 


JfJ = JC+N 


ETGE0095 


OM=J+{ JM-J)72 


E I G E ■ j 0 9 6 


T ■■ ( A(LL )-A('"M » ) 

l?L. 18 5, L£5 

EIGE0097 

1 V 

X=A ( LL ) 


EIGEOO90 


A( LL MA (MM ) 


EIGEG099 


A ( A F’ ) =X 


eiGEOlOO 


n-(^'’Y-l) 17“^, 18*^ 

,175 

EIGEOlOl 

1 ?5 

nr- LOv, K = i,N 


EIGE0102 


II ,<:=iG+x 


EIGE0103 


IMV-JO-^K 


El GEG104 


X=R ( ILR I 


EIGE0105 


'^HLK>=H ( 


fcIGE J1G6 

L-ij 

R( MK)=X 


ElGEolO? 

1 85 

Ct NTINUF 


EIGEulOB 


PO: TURN 


El GEC 109 


FHD 


El G E • j 1 1 C 



o o o 


SUBPOUT INE OUTPUT ( K K K , M, NCDT , NOT ♦ NO® rNNODE , EPP ,XLR f U» SRM,S RK » 

OUTPUT ROUTINE 

CQ'MMQ'N /PUNCH/ I PUNCH 

COMMON /BH/ ICASE , IGU'EST 

DOUBLE PREClSIQiN XLR,SRM»SRK ,U ,ERR 

DIMENSION XLR(n,U{l», SRM(l), SRK(l» 

0 I MENS ION NODI 1 ) ,NNOOE ( 1 ) 

DIMENSlQiN XXLFI15,12§> 

IDERUG=G 

kRiTE(6,2A) KXKfERR 

24 FORMAT! /2X , 'NO. OF IT E R AT I GN= ' » 14 , 2 X, • G ONVERGEO WITHI N» , C13.5 » 
IF ( IDEeUG.EO.O) GO TO 15 
VsRl TE(6,12) 

12 FDRMATJ/2X, • E I C EN VEC TOR S = ' . / ) 

DO 14 I=1,M 
II=(I-1)*NCDT 

14 WpITE(t,13) (XLRm + J),J=l,NGDTI 

13 FCRMAT!/, (2X, leOlH.Sn 
15 CONTINUE 

WPITEI6,2Q> 

DO 18 1 = 1, M 
KK= I*M-M 

18 WRITE 16,16) (SPMIJ+KK) ^ 8=1,1) 

WRITE(6,21) 

DO 19 I = 1,M 
KK- 

19 WRITE (6,161 (SRK(J+KKI ,J=1,I) 

16 FORMAT (2>,1GD13.5) 

2C FORMAT (/ 23H REDUCED HASS KATPIX /) 

21 FGPHAT (/ 23H REDUCED ST IF MATRIX /) 

NBU=NICT-NCCT 

GO TO ( IC1,1G1, 101, 102, 101), ICASE 
IJl DC IOC 1=1, M 

DO 201 J=l,NBU 


OUT POO 01 
OUTP0002 
OUTP0003 
TJTP0004 
DUTP0C05 
3UTP03G6 
OUTPO007 
GUTP0008 
OUTP0009 
OUTPOOlO 
OUT POO 1 1 
OUT POO 12 
•JUTP0C13 
QUTP0014 
OUTPC015 
OUT POO 16 
OUTPOOi? 
0UTP0018 
CUTP0019 
3UTP0020 
0UTP0021 
CUTP0022 
0UTP0023 
OUTP0024 
nUTP0025 
OUT POO 26 
QUTP0C27 

nuTPooze 

CUT POO 29 
CUTP0030 
3UTP0031 
nUTP0032 
DUTP0033 
0UTPU034 
CUTP0035 
0UTP0036 



XXLRU,J)=e.Q 
201 GOMIMJE 

DD 202 J=ltNCD1 

2G2 XXLP(I,N9U+J» = XLFi(( I-ll*NGCT*J> 

16 C GONTINUG 

GO TO 205 
102 no 2U3 1=1 rM 

DO 20(2 J=l»NBU 
20e XXLRd , J)=G.O 

XXLRU ,3) = XLR (( I-l )’?NGOT ♦ 1 1 
DO 20^ J = 2,NCDT 

20^ X X L R (I , J + N R 0 1 = X L P t( I - U * N C DT ♦ J » 

2 03 GDNTINLIE 

205 continue 

IPdC^Sr-.EQ.l) GO TO 333 
N0‘M = 4 

N'O DE-NOT/NOM 
WPI TE(6,3 5C» 

350 FORMAT (///IX, '***♦ BLADE MODE SHAPES *♦♦♦<) 

CO 351 1=1, M 

WHI TE(fc,45GCn 

4500 FORHAT (///IX,* I = » , 12/ / I 
WRI TE{6,49GGI 

49G0 F0RMAT(T5,'K* ,T13,'Pn,JI ',T3 3,'Vn ,J»*, T53 , * CW 1 1 , J I • , T73, 

& • DV I I , J ) ' ) 

D'03 51 K=1,NQDF. 

WRITE(6,35 2 > K , ( X XL P ( I , NQR >» I K- II + J ) ,J=1,N0M> 

352 FQRMATI ( 1 X , 14 , t ( 5 X , 1 1 5 .7 » I ) 

351 CONTINUE 
GO TO 360 

333 CONTINUE 
NON- 6 

NODE=NDT/NON 
WRITE (6,3531 

363 FORMAT (/// IX, ' WING KQDE SHAPES *♦**•) 

00 354 1=1,^ 


GUT POO 3 7 
0UTP0038 
0UTPD039 
GUTPD04C 
aUTP0C41 
0UTP-;,‘042 
OUT POO 4 3 
GUTP0044 
OUTP0045 
nUTP0046 
0UTPCG47 
OUT pr. 04 (? 
OUTP0049 
OUT POO 50 
0UTPC051 
OUT POO 5 2 
0UTPC053 
0UTP0054 
OUT POO 5 5 
0UTP0056 
CUTPOC57 
GUTPC058 
OUTP0059 
0UTP0'J6C 
OUT P 006 I 
0UTP0062 
OUTP0063 
OUTPC064 
0UTP0065 
0UTP0066 
0UTP0067 
OUTPC068 
OUTP0069 
0UTP007L 
JUTP0071 
3UTP0072 




WRITE(6,45U! J 1 

CUTP0073 


WRITE(fc ,4901 » 

QUTP0074 

^901 

F0RMAT(T5, 'K* , U3 , * W( I , J » • ,T3 3 , • V tl , J ) • , TS3 * * DU U i J 1 * • T73, 

□UTPU!T75 


£ ■ DV( I ,J )• ,T53, 'Pril l I ,J) ',1113, 'DPHII I, j|» 1 

CUTP0076 


DO 35 5 i<=l,^OOE 

□UTPC077 


WRITE(6,35 2 J Kt (XXLPU ,NQM4(K-U*J) ,J- ' ,NOMl 

01JTPD078 

355 

CONTlNyE 

OUTP0079 

3'5A 

CONTINUE 

OUTPaTSr 

360 

GGNTINUE 

OUTPC081 


IF ( IFUNCH.EC.C ) GQ TO 370 

OUTP0082 


00 359 1=1, M 

0UTP0C83 


DO 35 fl K=1,N0M 

0UTP0094 


WRI TE ( 7 ,3 5? M > XIR ( I , NOM* U- U*K 1 ,,] = 1 , NODE 1 

OUT P 0085 

357 

FORM AT lfcEl3.5 J 

0UTP0086 

35 3 

continue 

OUTP0087 

359 

CONTINUE 

OUTPO'T98 

370 

continue 

OUT POO 09 


kR I TE 16,3 71 » 

0UTPU090 

371 

FOCMATUHI) 

OUT P CO 91 


return 

OUT POO 9 2 


END 

QUTPC093 


A. 2 The TILDYN Program Lis1:ing 


93 



<r> n n o o o rt o n n 


C 

+ »; 4 ; ^ ;;i V !<.■ )p * -{t W ^ 9 * + 4 ^ ^ * * V ^ ♦ * * V * V 3 t 

PRCGKAM KdTDP 

PAST 2 ; PP.'lGPAM TIlCYIsI 

4 4 4: 4 ■•!' =5^ i ’!: 'll 4 4> 4 * 4< 4 4‘4'4! *4«* 4< 4 sk 4> 4 4' 4< “ >P ¥ 4; 4 * * 4= 4= T- ip * 4: 4 

pyppjSE 

Tu AIMptYZB THE T1LT-R.1TJS DYNAMIC SYSlEh RY MEANS 
Dr FRCQUtNCY RESPCNSE ANC E I GtNV AL lltS IN POWEKtD 
AND AUTuSCTATIJN FLIGHT 
C 

C DGVELCPEO RY MASAHIPC YASUE 

C JF AcKlLLASTIC Ai\D STRUCTURES RESEARCH LABCPATCPY 

C AUGUST 197A 

C ADDRESS ; BLG Al-211 

C MASSACHUSETTS INSTITUTE OF TECHNCLUGY 

C CAPERICGE, MASS. 02129 

C 

C 

c 

C MAIN PRUGRAM 

C 

C TJ DEFINE THt SEOIENCE'GF THE PRCGRAM 

C 

CCMHCN/0DF1H/AAY( 19,19 1 , RHY ( 19 , 1 9 > , CCY 1 19 , 19 I , LDY ( 19 , 6 » 
DIMENSIlN CGbSTtGI ,DDZ(19) 

CCMMlN /PAR.MT/ [TYPE ,IFLT 
1 CONTINUE 

5JU1 FORMAT! IH II 
CALL IMIIL 
CALL CUEFF 

CALL lMPUT(CGUST,IDaF, IRES, lEIGEN) 

CALL IKTPL 
WR ITr.{ E, SoclJ 


WAIN-;^ I 
MAI N. I? 
r t- INCOG'- 
PA IN 

NAIM . .•‘S 
F AI N"'' .6 
MAIN' , 7 

MAIN 0002 
I" A I NUt »9 
i' A I NO J 1 y 
MAlNQGll 
MAIN'.cnZ 
MAINbulT 
Mf I NOL lA 
MA1NDU15 
MAIN0016 
MAI NOG 17 
MAINTGl R 
MAIN 0019 
MAIN )02 . 
MAIN0G2I 
MAI NOG 22 
MA IN jv- 23 
MAI N002A 
MPlNubZS 

MAI NC027 
•MAIN 2H 
MA II' OL 2 9 
Pi a I PM’ 3 . • 
A IN.1 I 
MAINCG32 
MAIiV'ji ?3 
MAl NC\j3-t 
MA INC039 
'^AIN' 3o 



CALL AERO0T 
CALL QKDINT 
WRITE (6, 5001) 

CALL AINER 

CALL AfRO^iT 

CALL EQMTXt IDOF ) 

If ( 1FLT.EQ.C) GO TO AGO 
CALL AUTO (I DOF) 

AGO CCNTINtlE 

ID IK= IP OF* IFLT 
IF (IFES.EG.O) GC TO 200 
WR ITE(6,50'01» 

CALL GUSTCl!(CGUST,QIDY, iniM,DD?) 

CALL FRORFS ( ICIM, AAVtCBYt CGY . COZ , I FLT v IDOF > 
2 0G CCjMTINU'E 

If { lEIGEN.EQ.O » GC TO lOGO 
WRI TIE(A. ,5001) 

CALL E[GE(M(IOlM,AAY,BRYtCCYfCGYi IDQF » 

1000 Cr.NTINUE 

WRI TE(F,5001) 

^ GO TO I 

f‘'iO 


MAIN0037 
MAIN0038 
MAIN0039 
MAI NOOAO 
MAINOOAl 
MAI N0042 
MAIN0043 
MAIN004A 
MAI N0045 
MAIN0046 
MAIN0047 
MAIN0048 
MAI N0049 
MAIN0050 
MAIN0051 
MAI N0052 
MAINOC.53 
MAIN0C54 
MAI N0055 
MAIN0056 
MAI N0057 
MAIN0058 



o r) o 


BLOCK CATA BLOCOOOl 

BL0C0002 

TO INITIALI7L THF. COEFFICIENTS CF GAUSSIAN QIJAOKATUPE BLOCUC03 

BLOCOOOA 

GO^tMON /AFEA2/NF7 ,XXX{2Q) ,A(20) BL0CD005 

DATA NPT/ll/ BLOC0006 

DATA A( II ,A(3I tA(A) ♦AI5I ,A(6) /O.O55660, B1OCOC07 

0.125560 ,0.166290, 0.233193 ,0.262804 » 0.272925 / BLDC0008 

END BLOC 0009 


VO 

ov 



o o n 


SUBROUTINE TNITIL 

INITIftLIZATIOM OF TM€ MATRICES 

CDMMON/nOFlB/MV f 19 , 1 9 ) ,BBY 1 1 9 , 1 9 1 , CC Y C 19 , 19 » »ODY( 19,6) 
COMMOiN/INERTI/TTMK A,6,3) ,TTC T J ( 4, 6 , 3 ) ,AMJT(4,3,6) ,CJT«4,3,6) 
COMMQM /ARR/WGUST ( t ,6 ) ,0AMX<6 ,6 ) » AMX(6,6 ) ,00(4,6,3) ,0( 6, 3) 

S ,0HMA>(4,3,6) ,HMAX(4,3,6) 

C0MM0N/WING£RZTSCS(20,6,6 ) , 1 SAS ( 20 , 6,fc ) ,TSAG( 20,6, 3) 

DO 10 1=1,4 
no 10 J=l,6 
DO )0 K=l,3 
TTMTU , J,K) =0.0 
1 TCTJt I , J,K )=0.0 
AMJTU » K, J)=0.0 
CJT( I , K, J >=(].G 
DUI, J,K)=0,0 
(0 ( I , J , K ) = G . C 
DH'''1AX( T ,K, J ) = G.O 
HN AX( I , K , J) =0 ,0 
1. CCmMIMJF 

DC IL !=1,6 
DO 11 J=l,6 
WGUSK I , J )=C.C 
DAW XI I , J)=o.O 
A “i X ( 1 , J ) = C . 0 
• no I I K = l,20 
TSDSn<,I ,J)=O.G 
TSAS(K,I,J»=0 .0 

11 CONTINUE 

DO 12 1=1, 2fl 
m 12 J=l,6 
DO 12 H=l,3 
TSAGI I, J,K)=O.G 

12 CCNTTNUE 

DC 13 1=1,19 


INiTOOOl 
INI T0002 
INIT0003 
INIT0004 
INITC005 
INIT0006 
INI T00C7 
INIT0008 
INIT0009 
INITOOlO 
INITOOII 
INI TOO 1 2 
INI T0013 
INITUU14 
INI TOO! 5 
IN I TOO 16 
INIT0017 
INIT0018 
INIT0019 
INI TCG20 
INI TOO 2 I 
INI TC022 
INI TC023 
INIT0024 
TNI T0025 
INIT0026 
INIT0027 
INI T0028 
INIT0029 
INI T0030 
INI TOO 3 1 
INIT0032 
INI r0033 
INIT0034 
INI T0035 
INITC036 



DQ J=l,lS 
AAYU , J)=0.0 
P8Y( It J ) = G.O 
CCY (I , J »=0.G 
CGNT1MJ€ 

OG 15 K=lt6 

nGY(I»Kl = G.O 

CO'mWUF 

CGNTIMIIE 

KETGRN 

END 


INIT003T 
INI T0038 
INIICOB*? 
INIT0040 
INI TG041 
INIT0042 
INIT0043 
INIT0044 
INIT0045 
im T0046 
INIT0G47 



non 


SUBROUTINE CQEFF 

TO DEFINiE THE POINTS ANC COEFFICIENTS OF GAUSSIAN QUADRATURE 

DI '^ENSIGN V(20)t>Y(20 ) 

COMMQE' /ARFA2/NPT, X>X( 2G» ,A( 2G» 

NPTH=NPT/2 

IF( (FLDAT(NFTHI-NPT/2.0) .NE.G.GIGO TO 100 
RE AD<5, 50G0U Y( 1= UNPTHI ,( A(J» ,J= ItNFTH) 

5000 FORMAT<aF10.5) 

Du 10 ir=l,NPTH 
Y(NFTH4II »=-Y(NPTH-IHI) 

A(NPTIIU n =A( NPTH-M*! 1 
LO CONTINUE 
GO TO 200 
100 NPTH1=NPTH+1 

CAT A Yl I ) ,V (2 ) ,y ( n ,Y lA) , Y1 5) ,Y{6>/0.9?a228, 

O.B37CC2 , 0.710152 » 0,519096 , 0.269543 , 0.0 / 

^ IJC 20 MM=UNPTH 

^ ACIPTH + YR + I ) = A (NPTH-MM+1 I 

Y( ^JPTh+'‘1M + l > = -Wf\PTH-RiY+l J 
20 CONTINUE 
2G0 OD 50 KK^l ,NPT 
YY( KK) = Y( KK I 
5‘J CQA'TIMUE 

.00 60 IN=1,KDT 
V( IM-YY(RFT- IN + 1 I 
90 CONTINUE 

)0 TO 1JJ=1,NF1 
XaX ( JJ J) =tY U J J » + l ,0 1/2.0 
30 COtlTT.hUE 
kETURN 
END 


COEFOOOl 
COEF0002 
CQEF0003 
CQEF0004 
CGEF00C5 
C0EF0006 
CDEFC007 
C0EF0008 
COEF0009 
CDEFOOIP 
CDEFOOll 
C0EF0012 
C0EF0013 
COEF0014 
C0EF0015 
COEFOU 16 
CQEF0017 
COEroOlB 
COEFOU 19 
CQEF0020 
CGFFU021 
C0EF0022 
COEFOU 2 3 
C0EF0024 
C0EFOO25 
CCEF0026 
CQEF0027 
CDEF0028 
CO EF GO 29 
CQEF0030 
C0EF0031 
CDEF0032 
CGEFU033 



n o o o n o i~> ,rt c~> r> o n o r> r> o o o o 


^UBROUTTNF I NPIfT ( CGUST , T DOF t TRES ♦ I EIGiENJ 


C 

r 

C 

C 

c 

c 

c 

c 

c 

r. 

r 


TO SUPPLY INPUT INFORHATTON 


OES =TnEMTlFYING INFORMATION 

ITYPE=0: HIMGFLFSS ROTO'? IN POWERFD FLIGHT 

ITYPF=1: HTNGFLFSS ROTOR IN AUTOR OTAT TONAL FLIGHT 


T^LT =0 : 

inoF =9 : 
IRF 5 =0 : 
IFPMAG=iO 
IFPMAG=1 
I EIGEN =0 


GIYRALLED RQTOR 


IN both flights 


POWFRED FLIGHT !FLT=l : 

BASIC DFGRFES OF FREEnOM IS 
FREDU'^NCY RESPONSE OFF 
: MODE NOMALIZED ROTOR RADIUS 


autoroation flight 

9 IOQF=in : DOF IS 

IRFS=l : RESPONSE ON 
AND WING SFMISPAN 


IB 


: NORMAL MODFS 

: FIGEMANALYSI S OFF IETGEN=1 : EIGENANALYS IS ON 


NOBLD= NUMBER 0^ BLADES 
POH= AIR DFMSITY 

0MF.GA= ROTATIONAL SPEED IPAD/SEC) 

paMDA= inflow ratio 

VEI = CRUISING PLIGHT SPEED 

P= ROTOR RADIUS 

AIB= blade flapping MOMENT QF INFPTIA 

CH00= BLADE CHORD 

CL= BLADE lift CURVE SLOPE 

CD= BLADE DRAG COEFFICIENT 

HMAST= MAST HEIGHT 

DFL3= PITCH-FLAP COUPLING COEFFICIENT ( RADIAN ) 

WL= WING SFMISPAN 

WCaO= WING CHORD 

WCL= WING LIFT CURVE SLOPE 

WCD= WING DRAG COEFFICIENT 

WCMO= WING PITCHING MOMENT COEFFICIENT 

WCMA= WING PITCHING MOMENT CURVE SLOPE 

FDl S=D1STANCE BETWEEN AERODYNAMIC CENTER AND ELASTIC AXIS 


INPUOCOl 
INPU0D02 
IMPU0003 
TNPUDOU A 
I NPUQDD5 
INPU0D06 
T NPU^'^pT 
INPUOOOB 
IN“U0DDQ 
INPyOOlD 
INPUOOll 

INPUD 012 

1MPUDP13 
IMPU0C1'^^ 
iNPuo :»is 
INPU0016 
TNPU0017 
INPUOOIR 
INPU0019 
INPUDD2n 
I NPIJDD21 
1NPU0022 
INPU'*’'^23 
TNPU0024 
INPUC025 
INPU0n?6 
TNPU0027 
INPUOi 2P 
I NOUDD2P 
INPUD030 

IN“UDn3i. 

TNPU003? 

TNOIJOD?^ 

INPU 0 G 34 

INPU0035 

TNPU''“‘>36 



o r> 


C 

r 

c 

c 

r 

r 

r 

C 

r 

r 


C 

C 

r 


c 

r 

C 

C 

c 

r 

C 

C 

r 

C 

r 

r 

r. 

c 

r 

r 

C 


( MONO! NS TONSIL ZED BY WTNG C.HORD , pQSI TT VE AFPODYMAmjC 
r. ENTER AHEAD » 

WTHHT= wind trim ANGIE OF ATTACK (RADIAN ) 
rnUST= EXCITING FORCE COMPONENTS 

B»^A«= (BLADE NATIJRA.L Frfqucmcy }**?_ ( R AD ! AN/SEC ) *>^2 

VIRAM= IWTNG NATURAL FREQUENCY )**?. (RAPT AN/SEC )**? 


NW= WING ELEMENT NUMBER 

EMSW^. WING ELEMENT SIZE NORMALIZED IBY THE SEMI SPAN 
G--^ VERTICAL PENDING MODE COMPONENT AT THE NODE OF THE WING 
7 -.. CHORDWTSE BENDING MODE COMPONENT AT THE NODE OF THE WING 

OG= VERTirAL REMPTNG ^onF SI OPE AT THE NODE OF THE WING 

PZ= CHORDWTSW BENDING MODE SLOPE AT THE NODE OF THE WING 
WPHI= TOSION MODE CQMt’OMFNT AT THE NOPF 0 *^ THF WING 

DW< 5 HT = T 0 RSt 0 N mode SLGRF at the node of THF WING 

M= BLADE ELEMENT NUMBER 

FMS=BLA 0 E ELFMEMT size normalized by the ROTOR RADIUS 
aMASS= MASS DISTRIBUTION AT THF NQOF OF THF BI.ADF 
Thtfn= angle of twist at the node of THE BLADE 

COL= COVLECTIVE PI^CH ANGLE DETERMINED by THE PERFORMANCE (PADTAN) 

W-OUT-O'F-PLANF MODi^ component at the NODF of THF WING 

\/- INPLANc mode COMPONFBT AT THE NODE OF THE BLADE 

DW= OUT-OF- plane MODE SLOPE COMPONENT AT THF NODE OF TN^ BLADF 

DV= INPLANE MODE SLOF'^ COMPONENT AT THE NODE OF THE Pi AOE 

RRAMn= (COLL'^CTTVF MODE NATURAL FREQUENCY OF THE BLADE )*'^2 
( R APT aa)/SEC 1^*2 

wr-Qt = nUT-OF-PL AN^' COMPONENT OF THE BLADF COLLECTIVE MODE AT THE NDDF 
VCOI = JNRiAMF CO'^POMENT OF THF BLADE COLLECTIVE MODE AT THF NODE 
nWCOI,= OUT- 0 '=-PL ANE SI OPF COMPONENT nE THF Rl.ADE COII.FCTIVF MODE 
AT THE NODF 

nVCOL=TMPLANE SLDRF COMPONENT OF THE BLADF COLLECTIVE MODF AT THE NODE 


INOU*'->?7 
INPUOOBR 
I NRU0D39 
INpuoc .40 
TMPU0041 
INRUG042 
INPU004B 
TNOU0044 
INPUO'>45 
INPIJ0046 
INPU0047 
INPnn04fl 
I NCU0049 
^MPljGP BP 
TMRL 10 C 51 
INPUDQS2 
INoinOEB 
INOU0054 
iNt>U005R 
INPUD OS 6 
INOU 00 S 7 
IMoUf'DRB 
INOU0059 
INRU0060 
INPU0061 
INPUDD62 
INPUC063 
TNPU0D64 
INn'U''D65 
INPU0066 
INOUDD67 
INPypn68 
INPUD069 
I NPUG/^7n 
TMpUP '^71 
INPIIDD72 



ni mfnstQN RMAX( a-) » RHMAX(4) , W'»lAX(f<) ,R1G! 6) 
nTMENSTO^l r,Gt»ST(6» ,SPM0(4» ,SBMI4l»SWG(6),0eSC80l 
COMMON /PAPNT/ ITYPP ,TFLT 

rONMDN/AMATIC/m6t5),C(ft,6 J ,H5,6) 

CCMs^ON* /AREAl/OMF-GA.o,VfL,Cl tCO,PAMOA ,SNOMEG 
common /APEA6/’NORJ.O»ROH,CHOO,aTP,GK,MMAST ,ALOCK ,ANO,HR 
'■Q MM0^7 ARF AR / PC AM r 4 | , Wl. AM ( 6 » t RR AM ( 4 ) » MR A« C M t Bl. AMQ( 4 ) « PR AMO f 4 ) 
rOMMON/GlN/ V( 4,2n .W1 4»2 1) tOV (4 « ?1 » , DW(4 ♦ 21 ) ,TMFTAC21 ) • 

31FMS ( 2'^t , AMASS ( 20 I ,Wf NPP 

common /GI no/ VC OL t 4 ,21 » , WCGC ( 4,2 1 ) ♦ OVCOL 1 4, 2 1 1 . OWrOL I 4, 2 U 

COMMQN/WTNG/ NW,MnPW,FM?W(20) ,G*6,21I,DG(6,2U ,7.(6,21) ,0?le>,2l I , 
*WPMI(4, 21), DMPH! (6, 21 > 

CQMMON/MirH/Wi.,WCnn,wrL ^WCD,WCMO,WCMA,POIS,HTHET,VV 
COMMON /COOP!. *' AKPC ( 41, AKP0f4» 

COMMON/FRMAG/ Fp 0 ( 4 ) , FR B0( 4) , FRVH 6 ) ,TFRMAG 

^ C0MH0N/THF/THPTN( 21) ,MR,MW 

p TDFRIIG=0 

MR = 2 
MW=R 

RFAn<S,5003) (OFSt T), T = l,RO) 

PEAD(5,50OU I type 
PFA mR,5001) IFIT 
RFA0<5,20R4) TDOF 
I£{ IDO'F ,EO.P) GO TO 62 

Mp = 4 
MM ^6 

62 CnNTINUF 

RF An(S, ROOD IRES 

PF An (5, <>001 ) ifRMAG 

RFA0{5, 5001 MFIGEN 

REAni5,5001 )NORLD 

R F A n ( ? , 5 0 00 ) R 0 H , 0 M E G A , P AM 0 A , V E L 

REAniStSOOGIR, AI R, CHOn,Cl,CO,HMAST,OFL3 

RFAn(S,SOOO)Wt.,wron,WCt ,MCO,WCMO,WCMA,EO!S,MTHET 

PFAn( 5, 5000)rr,UST 


INPU0073 
T MONO 074 
TNOIJOOYS 
TNOU0076 
TN'>U0077 
TNt»U'V'7fi 

TNPtinOTq 

iN^UOnBO 
T NPu'^toai 
TNOU00R2 
INPJjnORO 

tmpu;dr4 

T^!Ptl00R5 
TNP(J*'‘'R6 
TNO/^?! FR7 

T moUOORB 

IMf>Mr ^(^c) 

TMDUOORO 
I MOl|n.-)9t 
TNOimOO? 
TNPU00P3 

T Mf»o/>'*i0 4 

I No*)OOPS 
TNPU0096 

t NPij-sr>q7 

TNPUOOPR 
TMPuonpp 
!M nun 100 
IMPtJOlOl 
! VPUO 1>2 
TNPU01P3 
INOU0104 
TNPUOl^S 
INPU0106 
TNPU0107 
INOUOIOR 



103 


REAO( 5, *50001 PP 4M 
REAPCEtSOCOJWRAM 
PFAH( 5, 2<"-34)NW 
NDPW=NW+l 

R=AD(<5,50C0) (FMSW(K) ,K^1,MWI 
BD 60 T=1,MW 

RFAn(5, 1001 ) ( G{ I , J) ,J=l,Nr)PW> 
R'=An( 5t l‘*l» ( Zn , J> »J = l ,MnPW) 

P = An(5t > ( OGUt J» f J = l,Nnow| 

P = An(6,ir01 > ( DZ5 I».l) , J = 1 ,MDPW) 

R'^AD( E, I" '• 1 M WPHK T , J > , J = lfNOPW» 
RFAf^(5, 1001 ) (OWPH^ n Tvl) , J=l»MnPWt 
60 CQM'^!'‘JIIE 

PSAO(‘^, 2^34 
KinD=N+i 

OF A0( 5, 5?‘ . M PMS(K » , K = l, N) 

PFA*^f5, Er;...n) ( AM ASS ( J ) , J= 1 , NOP ) 

PP AOf F , ) ( THFTM( J ) I J = l »NDP J 

Pf AP( 5 ' ' 
nn so 

pcftn(5, lori) ( W{ I, ,J = l,Nnp ) 

P £An(s, 3, -mi M VU tJ) »J = lrA'f^P ) 

pPAnfs, 1001 M nw( T ^ j) , 1 = 1 . ,Mnp \ 

p PAP( 5 , 1 ' '•! ) ( ^vn T J) »J = 1 fN'PP ) 

AK or ( T ) =nw (I » 1 ) Vf T AN ( DFL ’ ) =^-.( -I . r ) 

60 rON'^INUF 

IF nTV^F.Fn.-’ ) or to ifr 
P‘=An { F, 6000) pp AMO 
no T=1,MP 

PFAn<6,10ni)( WOOL { I , J ) . .1= ; ,N0P J 
PFAn{ 6, 1001 ) ( VFOU I »J ) » J=1»A'0P ) 
PFAn(6,I- n HDWCOLI T r J) T J’=1»N0P ) 
■PFAniF, IF'^1) (DVrOl ( !,J)»J=1.N0P » 
AKPO( r I =nwrDI.( T, n-'TAAi(CFL3 )♦(-! .0) 
52 rONTIMU'E 

no 200 i=ltA 


IMPUOlOP 
iNpuoiir 
TNPUOlll 
TN'PimiZ 
!MP)JO 113 
T NPlJOllA 
INPU0115 
TNPU'^116 
INPU0117 
tm°uour 
INPU0119 
T NPU0120 
IN PUG 121 
T NPUP122 
IMPD0123 

I M r>| p 1 2 4 

! MPtlO 125 
T Nnyoi26 
TMf>in 127 
INPU012R 
TM°U • 129 
I MP'jr,13n 
!NOUni3l 

T N Dip 13 7 
INPU0133 
1MPU'^13*V 

INO00136 
TM»uo 137 
T NPlini.3g 
’NPU0139 
TNPUllAO 
iNPtlOlAl 

TNPIJ 0142 
T \) 71(0143 
T VPt)0l44 




ei.CM0( T ) =BRftMO( I )/0MFCA*-*2 

TNPU0145 


?BMP( I ) = SORT(pLAr^n( T ) ) 

INPtrni46 

200 

raMTTMU’E 

TNOU01A7 

100 

rOA'TTMUP 

INPU'ilAfl 


!F( inOP.'^O.lR) GO TO 101 

T Mono 149 


no 30? T=4f6 

TNPUni50 


no 30? J=l»NPPW 

Tfjnyrisi 


G n , juo.g 

INPU0132 


DG ( T t J » =0. 0 

INOU(U53 


7n,J>=0.B 

TNOU0154 


nzn. J)=o.o 

TN«»IJ0!55 


WPHU T , j) = 0.n 

TNoun?p 


DWPHK I ,J)-0.0 

TN«»U01?7 

30? 

CO'MTTMU'E 

INPU015R 


00 307 T^3,4 

!NPU'>159 


00 306 vJ=l»NDP 

TMPU0160 


wn » j)=o.o 

TN9U0161 


OMUt J )=0.0 

TMPU0162 


v(i ,.n-o.o 

TMPU0163 

306 

Pvn.j)=G.o 

TNi>Uni64 

30 7 

AKPCn v=o,o 

TNPO''16 5 


TF( TTYPE*eO. Ot GO TO 101 

1NPU0166 


00 308 T = 3»4 

!Nt»n0167 


DO 309 J=1,MDP 

TNPU016P 


wcotn,j)=o. 0 

INOU0169 


Dwroi-f I T J)=o.o 

TNOijniTo 


vroui , jj- 0.0 

!N9U0l7l 

309 

nvrouT ♦Jj=o.o 

INPU0172 

30 « 

AKPOn )=0.Q 

TMOU0173 

10! 

CONTI ^3UE 

1NPU0174 


no 22 1=1, NOP 

!N'>U0175 


THFTAI I ) -THFTMn l+COl 

TNOU0176 

22 

rONTTNUE 

INOU0177 


no 6 T = l,A 

1NPU0178 


B1 AM C i ) = BP AM ( n /OMEGA** 2 

TN»>U0179 

ft 

S,BM( n = SORT(Rl.AM(n I 

INPUniPO 
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00 5 T=l,6 

Wiftwn ) =WPAMU J /0M£GA«+2 

5 SWO( n = S0RTtWt.AM{ I ) ) 

DO ^0 !=1t6 

TT( I , 1) =Gt r ,MDPW> 

TT( T ,2> = Zn »M0PW) 

Tin ,3» = pzn ,MDPW) 

TT( ! , 4 ) =WPHT ( I ,N0PW) 

TT( r,-^)=-nG( T.Nnovn 
30 COM'^TMUe 

TF( TR. T.EO.O) GO TO 23 
no 24 1=1,6 
24 TT(I,5)=n.O 

2.3 ^,Q^!TI^MJP 

nr 4Q T=l,6 
nn 40 J=l,6 

40 C t I , J ) = nZ( T ,N0PW>*WPHT( J , ^'^PW ) -OZ ( J , MPPW > *WPH H T ,NnPwl 

AL0eK=POH*CL*CHOn*R*^4/ ATB 

AN0=‘=10aT(NDBlD} 

hp=hmagt/r 

cMOMPG=STRN( 1. O.OMEGA) 

2034 F0PMAT(I2I 
4003 FCRMfiT(aoAl) 

5001 FOP'^ATnil 
5000 ■ PPPM'\T(BF10.G) 

1001 '=0R‘^AT(6P13.5> 

f PRIMT 003 OF INPUT DATA ***1{tyc**^**jH!*K** 

WPTTF(6,50G2) I OF 5 ( T) , I = 1 , POl 
500? FnpMAT( ///10X,100l IH* 1 , //?GX , 80A1 ♦ // lOX, 100< 

WPIT'^(6, 50^41 iTYPFfTFLT, T DOF , I PFS , f F TGFN tlFPMAG 

5004 'FORMAT (//rcx,» ITYPF=' ,12,3X,' IFIT=* ,T2- 3Xt*TD0F=*t 

C r2,3X, • TPPS = * ,T2,3X,» TETGFN=* , I 2 , 3X , ' I FRKAGs^ ' , I 3 » 

W^ITFI 6,1 >N03Ln, POH, CHOC, AIR ,HNAST,ALOCK 
I fQrwaK/// T4,'N0 OF BIADES* ,T25, •ROM*, T41, 'CHORD* ,T59, • IB* 

$,T74, 'HNAST» ,T94, 'LOCK NQ* , 

</// T7,I25T1R,5(IPF15,7,2X) ) 


INDIIOIRI 
TMOuoiB? 
IMPU01R3 
T MOU01R4 
INPU01R5 
INPUni86 
TNPU01P7 
I NOUOIBR 
INPIJOIPO 
INPU019O 
IMPU0191 

TMPUOIP? 
INOU0193 
TN>»U^1^4 
TMDtJ0195 
TM'’U01P6 
INDfjr.197 
TN'®U0193 
'NPimqq 
1NOU020G 
TNPUnZOl 
IN'>U'^2’'2 
TNt>U020 3 
IN‘»U0?04 
INPU0205 
TN'*U0?O6 
IM®UO?'>7 
IMOU020R 
TNPU020'3 
!N«UO?lO 
INPU0211 
IN®U0212 
INPU0213 
IN’’II0214 
INPUT215 
TMt>U02l6 
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WR T ? )0 » p , v/c I , r I » rn , p ft. ^pa 

2 Fnpf^ftT( /// T6, tOMPGA* ,T2*5»*P' t^Alf’VFL' ,T59, *CL* ,T74, •"CD* 

«,Tq4, ‘PAMOA’ ///IX, 6nPE15.7,?X) I 

wRiTE(G,»^i) rat ,nn,3 

61 FPPMaT(///T6, .pDI LECTIVE P I TpH • , T25 ♦ • DFL 3 ' // / IX t 2 1 19*= 15. 7. 2X >» 

WPITF t6,3) WL,wr.O0,WCL f WCD»Wr,MO,wrMA 

3 PfRM,U{/// T6,'WING 1* ,T25, 'WING CHDD»,T4!, 'WIMG CL* »T59» *W1NG CO* 
X»T74,'WIMG PMn« ,T94» ' CMA* 

*/f/\)( ,6(1P'=15.7»2XM 
WRTTC(e>,4)F0TS,WTHrT 

4 PGPMftji/// ipiSTANCE \C A • , T 25 , • WING ALPHAH' 

3///1X ,2J 1PP15. 7,2Xn 

Wot tE(6, 25<'M 

250 FrRMATt///ix,35(lH-»/lX«*Eir,PNVALUFS ( NATURAL FRFOUENCIES »• 

t /!X,35IIH-I//?X, •— ( PAD/SFC )*+2 — M 

TF( ITYPF.FO.GI TO ?54 
WRITF(6,?51) (PPAM0( I 

251 FORMAT(/ix,* **PLADF GCLLFCT I VF**' /4X,4 C F 1 2 ,3 , 3X ) » 

WRTTP(6,252I 

252 FpRMAT(/lX,* =^*RLAnF Cva ) 

GC TO 255 

254 WPTTE{6,2531 

253 FORMAT(/iy,t *4PLAPF4*M 

2 55 WRITF (6,2561 (PR AM (I ),!=*!, MR) 

256 FnpMAT(4y,4(Fl2.3,3X) ) 

WRI'tc(6,?57) (WPAN( !) , I=1,MW) 

257 FPPM4T(/ix,' ■*'*WTNG**'/4X,6(F12.3,3Xn 

WPITR{6,408» 

408 FCRMAT(/2X,* — R.AD/SFG/CMFGA — 'I 
I F ( t T Y P E, F 0- n ) GO TO 35 4 
WRITE(6,35D CS9'M""( T ),I--l,MR) 

351 rCPMAT(/ix,» i-'*BLAnF C rij FCT T VE/OMFG A** • /4X » 4 ( FI 2. 3, 3X M 
WPTT^(6,?52) 

352 FnpwAT(/lX,' ^«BL ADF GVCLTC/nMFGA>^’^ • ) 

GD TO 355 

354 WRTTG(6,?53) 


TNPlin2l7 
TNPU-.213 
INPH021R 
*Nt>ltu22 2 
IN' PUD 22 I 
TNOU0222 
TNPUn223 
!MPim22 4 
T MPUD23 5 
TNPU'>??6 
!NP'J0227 

INOUD229 
TN“U0?30 
IM»U^23l 
INOU0232 
TNPUD233 
INOUD234 
INPU0235 
TMPU-3 23 6 
TN''U0237 
TNPU9238 
* NPU0239 
T WOU0240 
lMPU''24l 
INPUn242 
INPU0243 
TM Pin 24 4 
TNPU0245 
INPU0246 
IN PUD 24 7 
INPU0248 
TNPIJ0 249 

IN»U0250 
INPU0251 
I M DU ■'2 5 2 
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35^. 

355 

356 

357 
^00 
3 58 


A6Q 

46? 

431 

430 


46f 
46 5 


467 

436 

435 


FQPMATt/lX, • **PL&DF/0WEGA*«i ) 

WRITE ( 6*356 » (S5M{ !> ,T=1,WB) 

FQPHAT(4X,4(F12.3,3Xn 

W'R T T 5 ( 6 1 3 5 7 M S WG n ) T I = 1 » MW ) 

F 0 RMAT{ /IX,* **WTNG/npi!E 0 A***/ 4 X, 6 f F 12 . 3 t 3 X » ) 

WPTTF( 6*409) 

POPM AT (///IX, ‘EXCITING FIPCF. COMPONENTS') 

W'PIT'"(6*35 8)CGiJST 

FOPMAT( //T6,*IJ GUST**T?5,*V GUST** T41*'W GUST', 

■7 *TM’FT& O' ,T74* • THFTA 1C, T94*'thFTA IS',/ /IX, 

^ 6( 1PE15.7*?X)) 

no 4’-0 1 = 1 , MP 


DO 431 J=l,MnP 
PIG( I )=0.0 
PA=APS{ W( I,J V) 
1F(DA -RIGID) 
p T G I D = ° 

PA- '3^1 V( I * J) ) 
TCfoi -RTGCD) 

fllGD > = PA 
CONTTMUF 
BMAXt M=PIG( 1) 

00 435 1=1, MW 
DO 436 .1-1, MOP W 
B I G ( D =0 . 0 

PA = AP8(G(T, j) ) 
IF(F>A -eiGlD) 

PIGU )-OA 
PA = ( 7J I ,J ) ) 

TFfPA -RIGID ) 

BIG I T )=PA 
r.DMTiNOP 
WMAXI T )=BIGl I ) 

IF I TTVPF. EO. 0) GO 
DO 440 1=1, MR 
00 441 J=1,N0P 


460.460.461 

431.431.462 


465, 465, 466 


436,436,467 


TO 4R0 


INPU0253 

INPU0254 

INPU0255 

INP1J0256 

INOU0257 

INPU0258 

INPU0259 

TMPijn26'^ 

INPU0261 

IMPU0262 

INOU0263 

INPU0264 

IMPU0265 

INPU3266 

TNPLI0267 

INPI)326n 
T NPU0269 
1MPU02TO 
INPU0271 
IMPU0272 

TNPU0373 

TMPU0374 
INPU0275 
IMRU>276 
INPU0277 
TNPU0278 
IMPU0279 
INPD02R0 
I NPU02RI 
IMPU02R2 
INPU02R3 
INPU02B4 
T '^PU0?R5 
INPU92R6 
INPU32R7 
INPU02SR 




PTG( n= 0 , 0 


TNPU02fl9 


oA^rt^siwroi. (T tJ) I 


TNOU''2PO 


IF (PA -niRdU 470,470,^71 

INoiJ02^n 

^71 

ttini I ) = pfl 


TNOUDPQ2 


PA=fiR«:(Vf7L( j:,jn 


INOIIB2P3 


TFIPA -PTGd 

441,441,472 

7 Mono ?Q 4 

472 

BIGU )=PA 


INPU 1?QS 

441 

CO'NT 1 NU E 


IM i>U72’56 

440 

BOMAXm=PIG(T ) 


INOU0297 


GO TO 487 


TNPU''29R 

480 

DC 481 F=1,M3 


TNPU0299 

481 

P,'0MAX( T )=PMAX( n 


I NOU030D 

4P7 

COMTlMiUE 


INPIJ0301 


00 475 


TNOU0302 


FPB( I) = BMAXl 1 » 

/R 

INPUn 30 3 


FRR0( T )-8QMAX( I ) 

/R 

IMPU0304 

47^; 

FONT I NOE 


INPU0305 


DO 476 T=i,MW 


!NPUD3r'6 


FRW( I )-WMAX(l ) 

/W'L 

TNPU03G7 

476 

CONTINUE 


7NOU0303 


FPW (3)=ABSr WPHU 3, 

NDPW) ) 

TNPUD309 


IDEBUG^O 


TNPU031C 


TF( IDEB’UG.EQ.OI GO tq 477 

1NPUD3U 


WRITE(6, 5005 H RMAX( 1 1 , ! = 1 ,M'B » , ( BOMAX( 1 ) , T = l,HR 1 , ( WMAXC I 1 ♦T = l,MWl 

TNPU0312 

5005 

FO'RNAT(y//( 10X,E15 

. 7/n 

1NPU0313 

477 

CONTI NU'F 


TNDUP314 


PETtIPN 


TNPU0315 


END 


!NPU9316 
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SU BR OUT I N E I NT PL 


INTERPOLATION FOR THE NUMERICAL INTEGRATION 

IMTcRPCLATION FUNCTION— HERMIT INTERPOL AT I ON ( 2 POINTS* 

INTERPOLATION FUNCTION LA6RANGIAN INTERPOIATION FOR THE ANGLE OF TWIST 

C OMMON / TH E / THE TN ( 2 1 ) f M B , MW 
COMMON /PARMT/ ITYPE ,IFLT 
COMMON / AR E A 1 / DM EGA » R » V E L ♦ C L , C D t RA MOA » S NOME G 
C OMMON / W I CH / WL t WC OP , WC L , WC D » WC MO t W C MA , E D I S » WT HET , V V 
DIMENSION WXI21) 

COMMQN/WJNG/ NW,NDPW ,EMSW I 2 0 ) , G ( 6 , 2 1 ) » PG ( 6 , 2 IJ » Z (6 , 2 1 » , DZ ( 6, 2 1) » 

♦ WPHH 6,21> ,nWPHI { 6,211 
DIMENSION GI (6, 2 .) , ZI (6, 20»,WPHI I (6,201 
COMMON/ WI MOO/STR (20,3,6 ) ,TSTP(20,6,3 ) 

DIMENSION XX (21) 

CCMM •'N/GIN/ VI A,21 ),W(4,21 ),DV(4, 21)v DW(4, 21 ) , THETA ( 21 ) , 

«EMS( 20) , AMASS (2G),N,NDP 

COMMON /GING/ VC JH A , 2 1 ) , WC 0 L ( A , 2 U , D VC OL ( 4 , 2 1 ) ,DWC0'L(A,2l ) 

COMM JN /AREA3/vnA,2')),W I (A,20),THETAI (20 ) , AMASS I( 20) 

* , VICOl ( A,20) ,WIC0I.(A,2U) 

VO COMMON /AREA2/NPT, XXX(20 ), A(20) 

l0tBUG=0 
WRIT£(6, 50 ) 

50 FORMAT(///lX,'-^*«*« ALAOE MODE SHAPES 
XX( 11=0:, 0 

DU a- I-1,N 

XX( I+l) =XX( I )+EMS( I ) 

80 CONTINUE 

IFdTYPE.EQ. ) GOTO l! '' 

WRITE(6,51) 

51 FURMATI/IXt* C'OLLECIIVE MODES ') 

CO 36 I =1 ,MB 

WRITE! 6,45001 I 
WP ITE( 6,499R ) 

WRI T M6 ,3) ( J,XXt J ) , VCOL (T , J ) ,DVCDLI I , J ) , WCPL ( I, J ) ,OwCOL( I, J ), 


I NTPOCta 
TNTP0DO2 

TMTPOr»^3 3 

INTP0004 

INTPO005 

INTPnC06 

INTP0007 

1NTP0D08 

INTP0009 

INTPOOlO 

INTPOrjll 
1NTP0012 
INTP0013 
INTPODIA 
INTP0015 
INT PRC 16 
1NTP0017 
INTPU018 
I NT POO 1 9 
INTP0020 
IMTPt.U>2l 
I NT POO 2 2 
INTP0023 
I NT POO 24 
INTPQ025 
INTP0026 
TNTP0D27 
INTP0028 
INTPOt 29 
I NT POO 3':' 
T NTPJ031 
INTP"’n3 2 
I NT P 003 3 
INTP0034 
I NTP0P35 
INTP0036 



OTI 


J=ltNDP) 

36 CONTINUE 

WRITfc(6,52» 

52 FGRMM(//iX»* CYCLIC MODES *1 

iJO CONTINUE 

DO 35 1=1, MR 
WRITE(6,45UU H 

4500 ECRMATI/// IX,' I = » , 11 » 

WRITE! 6,499Q): 

4999 FORMAT ( T 5 , ' J • , T 1 3, • XX ( J I *,T33, 'V( I , J I • , T53 , * D V( I ,J|' ,T73,»W(I 
3!,JI' ,T9 3,'DWII , J)' ) 

WRITE! 6,3H J,XX( J) , V(I , J) ,DVl I , ,W( I , J3 ,DW( I , JI , J=1 ,NDP| 

3 FDRMATUiX, 14, 5 ! 5 X, El 5»7 m 

35 CONTINUE 

WRITE! 6, 59991 

5999 FORMAT!/// T5 , ' J* ,T 13, • XX( J I* ,T33, • THETN IJ) • ,T53, 'AMASS! J I* » 

WR I TF ( 6 , 4) ! J , XX! J > , THE TN !J ! , AMASS ! J » , J= I , NDP I 

4 FORMAT (!1X, 14, 3 ( 5X, E 1 5. 7 IM 

DO 70 H-1,NPT 

00 60 1=1, NDP , 

IF (XXII I.GE.XXX! II n GO TO 1U> 

60 CONTINUE 
110 £A=xx( n-xx! i-n 

E8 = XX!I )+XX tl-1 > 

XKSI=2o 0/EA*XXX( I I I-EB/EA 
F1=!XKS H-2.U J*l XKSI>l.U»*'p2/4.0 
F2 = !2.0-XKSI I« (XKSI + l.O !^'>i^2/4.0 
G 1= I XKSl + U 0) T ( XK SI - la 0 J =''M2/4^ 0 
G2=tXK5I-l. :: >T(XKSI + 1.0 » **2/4.0 
F1L=!1. 0-XKSl I /2.0 
F2L=( l.O+XKSn/2.0 
DC 90 JJ=1,4 

vn JJ,M )=V( *F1 + V( JJ,1UF2 + !DV!JJ,I-U*GL + 0V(JJ, I »*G2I 

a*EA/2.n*R 

WI( JJ,I I) = W! JJ ,1-1 I*F1+W ! JJ, I J’^'F2 + !DW!JJ, I-l I*G1+DWIJJ, I |★G2> 
i*EA/2.0*R 


IMTP0037 
I NT POP 3 8 
TNTP0039 
INTP004- 
INTPUG41 
1 NTP0042 
INTP.I043 
INTP0044 
INTPJ045 
I NTP '346 
INTP0047 
!NTP}048 
INTP0049 
I NT POO 50 
INTPOnSl 
1NTP0052 
INTP0053 
I NTPO/ 54 
INTP0055 
INTP0056 
I NTP0057 
I NTP0058 
IMTP.l )59 
I NTP00 60 
I NTP 0061 
INTP.:362 
INTP0063 
INTP-J64 
INTPQD65 
I NTP0066 
INTP 3067 
INTP0068 
INTP0069 
IMTP0 07G 
1NTP0071 
INTPO'72 
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IF( ITYPE,EQ,0)GO TQ 90 

VIC0L< JJ,I I >=VC0L( JJ,I-U*Fl+VC0L (JJt 1 1* F2 + ( DVCOL t J J , I- U 1 

* +D VC OL ( J J , I ) *G 2 J *€ f^/2, 0* R 

WICOL( JJ, I I )=VJCOL( JJ, I-i)’^Fl+WGOLUJ» I l + F2+( DWCOLC JJ. I-l 
V +OWCOK JJtl )=^G2)»?EA/2.0*R 
90 CONTINUE 

AMASSI HI )= AMASS (1-U’f'FlL+A MASS! I )*F2L 
THETAItl I )=THETA( I -1 )*FiL+THETA 1 1 )=>'F2L 
70 CONTINUE 

IF ( lOEPUG.EO.OI GO TO 400 
WRITE(6,504B» 

504 5 FORMAT (/// T5 , • J • , T 1 3, • X XX ( J ) ' , T33 , • VI C 1 , J > • ,T 5 3, • WI ( I , J > • » T73, 
<a»VI ( 2»J|* ,T93,' wn2,J»* ) 

WRITS(6,3)( JJ,XXX( JJ (tVI ( UJJ) » WI ( 1 1 J J) ♦ V M 2 » J J > t W I (2 »JJ) ,JJ=l» 
«NPT) 

WR I TE( 6,5047) 

5047 FORMAT(/// T5 , • J ’ , T I 3 , • X XX ( J ) • ,T 33 , * V I ( 3, J ) • , T 53 , » WI ( 3 , J M , T7 3 , 
a* VI (4tJ) • ,T93,'WI (4,J ) ' } 

WRITE ( 6,3) ( J J, XXX( J J ) , VH3, JJI ,WI (3 ,JJ) ,VI (4, JJ) ,WM4, JJ) , JJ = 1, 
■^NPT) 

WRI TE( 6, 5046 ) 

5046 FDKMAK/// T 5 , ' J • , T I 3 , ' XXX ( J ) ' , T33 , • AMASSI { J )' ,T53 ,■ THETAl ( J) ' ) 
WRITF (6,4) ( JJ,XXX( JJ ),AMASS I ( JJ ), THETA I( JJ ),JJ = 1,NPT) 

‘tOQ CONTINUE 

WRIT F(6,53 ) 

53 FGRMAT{///1X WING MODE SHAPES • ) 

■ WX( l)=0.O 
DO 81' I = 1,NW 
WX(H-1)=WX( I) + EMSW(I ) 

81 CONTINUE 

DG 38 11=1, MW 
WRITeC6,7O0O) I I 

7000 FORMAT!/// IX,'M = SH» 

WRITE(6,7GG1 ) 

7001 FORMAT! T5 , • J* , T9, * WX( J ) « ,T25 , 'GU I , J» • ,T4l ,' OGC T I , Jl • ,T57, 

♦ •Z(IItJ)*,T73,*DZ(II,J)*,T 89 , »WPHICIT,J)',T105,» D WPH I (I I , J I • ) 


I NT P0C73 
INTP0074 
I NTPC *' 75 
IN7PC076 
INTP0077 
INTPCr'^Ta 
INTP00 79 
INTP0080 
INTP0081 
INTP0082 
INTP'hJ8 3 
INTPi:084 
INTP0085 
I NT P 3 ; 86 
INTP0037 
INTP0083 
INTPCU89 
INTP0090 
INTP' ' 91 
INTPOL'9 2 
I NTP0093 
I NTPuT94 
INTP0095 
IMTP0096 
I NTPG097 
INTP0098 
INTP'a 99 
INTPOlOO 
INTPOlOl 
I NT PD 102 
INTP0103 
INTP0104 
INTP0105 
INTP0106 
INTP01J7 
INTPOloa 
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WRIT':(6,3) UtWX( J) tGdI , JltOG( II f Jl tZnit J)tOZf I It J 1 1 WPHI (! I « J I • 
*0 WF H I ( I I , d ) , J= I , NDP W I 
5 FORMAT ((IX, I ^ , 7 ( LX , El 5 .7 )» ) 

38 GONTINUiE 

DO 10 Idl,NPT 
DO 20 I=1,NDPW 

i FiWXI n.GE. XXX( 1 1 ) ) GO TG 220 
20 CONTINUE 

220 WEA=WX( I)-WX( I-l ) 

WEB=WX( I »*WX( I-l I 
XKSI = 2cO/WEA#XXX( 1 1 )-WEB/WEA 
F 1=( XKSI + 2. 0»*( XKSI-l«0)**2/4.0 
F2=(2.0-XKSn«(XKS! + 1.0l**2/4,0 
Gl=(XKSI + 1.0J=^(XKSI~l.0l**2/4.O 
G2={ XKSI-U0)*(XKSH-U0l**2/4.0 
DO 37 IJ=1,6 

GI ( I J,I n=G( I J, I-l I^F1+GI lJ,n>?=F2 + (DGn J, I-U*OUDG( Id, n*G2d 
♦w FA/ 2.0 «W1 

71 ( Id, 1 1 ) = Z( Id, I-n*Fl+Z( Id, T )¥F2 + trZ< Id, I-l)*Gl+OZ< Id, I l*G2J« 
■^WEA/2.0 

WPHM ( Id, I I I = WPHI ( Id, I - U’t^F IfWPHI ( Id, T I*F2+(DWPHI ( I d , 1 - 1 1 ♦Gl* 
SDKPHI ( Id, I )*G2l«WEA/2,0+Wl 
STP(I!,i,!d)=GI(td,II) 

STP. (11,2, Id ) = ZII Id, I I I 
GTR (I I ,3,Id)=^JPHI I (I J,I II 
TST«( II, Id, 1)=GI( I J, I I I 
TSTR(II,ld,2I = Zind,III 
TSTP ( II ,Id,3)=WPHII ( Id, II I 
37 CONTINUE 

10 CONTINUE 

IF( lOEBUG.EO.OJ GO TO 401 
WRIT [-(6, 7 )3 I 

7003 FOPMAK/// T5 , • d ' , T9 , * X XX ( d I • , T25 , ' GU 1 , d I ' , T4 1 , « HI ( 1, J ) • , T57, 
*»WPHI I( l,dl ' ,T73, •G!(2,d) ' ,T89, 'H( 2,dM ,T 10 5 , * WPM II ( 2 , J I • I 
WRITE(6,5 I (d,KXX(dI,GI( 1 , J I , Z I( 1 , J ) , W PH I I( 1 , d t , G 1 ( 2, d I ,Z I ( 2 1 J I , 
aWPHl I( 2,d) ,d = l,N>PTI 


INTP0109 
INTPC lU* 
INTPDlll 
INTP0112 
I NT P0113 
INTP0114 
INTP0115 
INTP0116 
I NTPOllT 
I NT Pn 1 1 8 
INTP0119 
INTP0120 
INTP0121 
INTP0122 
INTP0123 
INTPD124 
INTP0125 
1MTP.1126 
IMTP0127 
IMTP0123 
INTPni29 
IMTP0130 
INTP0131 
I NTP0132 
1NTP0133 
lNTP«il34 
INTPC135 
INTP0136 
I NT P*' 13 7 
INTP013R 
!NTpf)139 
INTP0140 
INTP0141 
INTP '142 
1NTP0143 
’NTPfJl44 
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WRITEC6»7004) 

7004 FQRMATC/// T5 , • J* ,T9 , • XXX{ J I • , T25, *61 ( 3t J ) * » T41, »HI( 3, J )» , T57, 
?*WPHIH 3»JI • tT73, *GI ( 4 , J ) • » T89 , ' HC4 1 J 1 ' »T1U5 , • WPH II (4, J I * I 

WPITE(6,5H J,XXX( J »,6I( 3,J» ,ZI ( 3» JI t WPHT I ( 3» J ) |GI (4, ,zn4» Jl ♦ 

aWPHH(4,J) t J = 1»N'PT) 

WRITE(6,7005) 

7005 FORMAT!/// T5 , • J* » T9 , • XXX I J » * ,T25 , 'GH 5 , J ) • ,T4l ♦ *HI ( 5 , J I * » T57, 

WPHIl ( 5» J) • ,T73,*GH6, J)' ,T89,'HI6 , J> • ,T 105 , • WPH 1 1 ( 6, J » • I 
WRITE(6,5H JtXXXlJ ),GI( 5»J» ,ZI (5»J1 ,WPHII(5f J) ♦GI (6. J) , 21(6*3) » 
3 WPH II (6,J) ,J^1,NPT) 

401 CONTINUE 
RETURN 
END 


I NT PO 145 
INTP0146 
INTP0147 
INTP0149 
INTP0149 
INTPC-150 
INTP0151 
INTP0152 
iNTPni53 
INTP0154 
INTP0155 
I NT PT 156 
INTP0157 
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SUBROUTINE AERODT 
C 

TO n.EEINE THE AEPODYNARIC COEFFICIENTS AT THE POINTS OF GAUSSIAN 
CUArRATURE 

CORiMON /PAPMT/ UVPE ,IFLT 
CUPMQN /AREAI/OMEGA,R,VE1 »CItCD,RAMDA,SNOMEG 
common /AREA6/N0BLD,RCH,CHG0, AI0,CK,HMAST ♦alock ,ano, hr 
COMMON /AREA2/NPT tXXXl 2L I ,AI 2C » 

COMMON /ArEA 3/\<I (4,2a»fViI(4»20>»THETAI(2O) tAMASSI?20» 

“ ,VIG0L( ^,2n»,WlCCL(4,20l 

COMMON/ AREA4/F(4,A,20»iHI(A,2C »»HI I(4»20) ,HRZI4,20I»HNR(4#20I . 

SWO( A.20>»VO(4,2C;» ,W1(4»20), VU4»20) 

a ,OHI4t4»2u)tQWO(4f 20)»GVl(4,2G) ,OHI II (4t20» »CHI 1 114,201 

a , GHV ( 4,2 0 ) ,0H IV 14,20) 

COMMON/AKKH/FTGPK 20) ,FT IFC( 2C » ,FTIP2( 20) ,FT2Pl(20l , F22P0I2C-I, 
/FZDP0(20),FZlFl(20>,F22P2<2O» 

a ,FnP0I2C),FT3Pl(2L) ,FZ3PJ(2u) ,FZ3P1(2U> 

COMMON/ ADFE/H I I I (4,2C ) ,FIV< 4,20) ,HV(4,2ti) ,HVI (4,20) ,HVII 14,201 
COMMOK/N I MOD/ SIP 120,3,6) ,TSTR( 20 ,6,3) 

COMMOr.,/WlCh/VJ'L,VsCQC,RCL ,RCDtWCMQ,WCMA,EDI S,WTHET, VV 
G0MMQN/WINiGAR/TSCS(20,6,6 ) ,T S AS ( 2U , 6 , 6 ) , TS AG I 20 , 6 , 3 ) 

IJ I MENS I ON DAWS(3 ,3 ) , A WA ( 3 ,3 ) , ARG ( 3 , 3 ) 
dimension TSCt (20,6,3),TSA(20,6,3) 

DO I 1=1,3 
DO I J=l,3 
DAWA ( I , J )=0 .0 
AWA( I , J) = C.C 

1 AWG(l,J) = 0.0 
DO 2 1=1, ?C 
DO ? J= 1, 6 
DO 2 K= 1 , 3 
TSDAl I , J,K)=O.C 

2 TSA( I,J,K)=C.C 
CK=-0.5*RQH*CL*CHQ0>)R + *4 
CA=CD/CL 


AEROOOOl 
AEROGC02 
A ER 000 03 
AER00004 
AER00005 
AERO0C06 
AER00007 
AER00008 
AERQ0009 
AEROOOIO 
AEROOOll 
AER00012 
AER00013 
AER00014 
AFR00015 
AER00016 
AER00017 
AEROOOIO 
AER00019 
AER00020 
AERC0021 
AER 00022 
AERO0023 
AER00024 
AERQ0025 
AER 000 2 6 
AER GOO 2 7 
AERQ0028 
AER00G29 
AEROC030 
AER00031 
AER00032 
AER00033 
AER00034 
AER0G035 
AER00036 
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CAi = UU+Ci 
CA2=1 ,f-G A 
AR A^■CA = RAr'DA 
RAMCA=ABS (PAML A) 

DG U JJ=1tNPT 

XSQ=SCPT (RAMCAP'-2tXXX(JJM*2» 

taug=i.o/xs(; 

TAU1=XXX( JJ )/ySR 
T AU2 = XXX(.J J )i'-^2/XSQ 
TAlJ2=XXX( J J ) XSQ 

ALPHA=THETA I( JJ )-ATAN( RAMCA/XXX< JJ ) J*ATAIM( RAMDA-^4. G/3 . 0) 

f-TH0 = PAMDa»^ 3-ALPHA »TAUG ♦-RAr<CA»>**-2 A>*T AH i + R AMDA*^ AL PH A^T AU 2 

/+-GA' TAU3 

PThl = RAPCA*-i‘2=«CAl»-T AUO+R AMCA*ALPHA*TAUU2.0»CA*TAU2 

FTH2= 2.U’!-RAMCA»"'^2 t Al PHA’' T AUci-P A'lDA'* CA2 * T AU 1 ♦■ALPHA*! AU2 

FTH3=FAMrA* r3»‘ T AUO-^R flMCA*TAU2 

FTHC=-FTHO’< SNQMFG 

FTH1=-FTH1 

FTH? = -FTH2'SN0^^EG 

FTH3=-FTH3*SNQMFG 

FZO=-RAMDAr< 3-^C A^ T AU0■^PAM0A’^■♦2♦■ALPHA■^TAU 1 -R AMOA* CA* TA U2 
ALPHAS T A U3 

E I l-RAA’nA<*2* ALPHArTAUQ+RAMCA+eA2vTAUl + 2.0*ALPHA«'TAU2 
F Z2=-2.0 -RAMda»>‘ 2=^CA>*T AUO+P AMCA *AL PHA-7 AU l-CA l-^TAU2 
RZ3=P AMDAX*2*TAU1+TAU3 
F2l=F21 -*SNOMEG 
no 20G J=l,^ 

DG 100 1=1, A 

H( .J, I , J J) = FTH1*V1 ( J,J J»*V I( I, JJ M-FZ 1*WI ( J, JJ )*Vl( I , JJ)*F TH2^ 
nVI ( J,JJ)*WI ( I ,JJMFZ2*WI (J, JJl*WI( I ,JJJ 
If ( ITYPE.EG.O ) GO IQ 100 

r :H( j, I , JJ) =FTH1'- VICQH J, JJ)*V ICOL( I , J J )+FZ l*WICOL ( J , JJ 
B VICOl ( I, JJ)+FTh2#VIC0U J,JJ)*WICOL( I , JJ ) ♦•FZ2»‘-WIC0L 

Z (J,JJ) *V>ICQL(I,JJ) 

100 CONTINUE 

HI (J, JJ)=FTH1*V1 (J,JJ)+FZl»WI( J,JJ) 


APoncoS? 

AeHC0D38 

AER00039 

AEROOOAO 

AFROOOAl 

AEP00042 

AER00043 

AEROOOAA 

AFR000<r5 

AFPQ0046 

AER00047 

AER00048 

AER00049 

AFR0C050 

AER00051 

AER00052 

AERQ0053 

AERQO054 

AFR00055 

AFR00056 

AER00057 

AERCOO50 

AER00059 

AER00060 

AER00061 

AER00062 

AER00063 

AFP00064 

AER0C065 

AER00066 

AERG0067 

AERa0068 

AER00069 

AER0007C 

AER00071 

AER00072 
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HI n J, JJ) =( FTh?^ vn Jt JJ) + FZ2»WI( J,JJ) MXXX ( JJI 
HRZJJt lJ>=FTH2»tVI ( J,JJ)+rZ2«vn J,JJ) 

H^JP< J, JJ» = ( FTHl'V H J, JJ)+F71*kI( J,JJl i*XXX(JJI 
WD( J.JJMIMASSI ( JJ}^ WI ( J, Jjj 
VOl J, JJ ) = AMASS I (JJ MVI (J, JJ> 
WI(J,JJ)=ANASSI{JJ)^WI(J,JO)*XXXCJJ» 

Vl( J,.IJ) = AMASSI ( JJ) »VI ( J» JJ)’^XXX( JJ) 

HUHJt )J) = FTHl’! VI(J,JJH-fTH2*Wl Ut JJ) 

HTV( J,JJ| =HII U J ,JJ J^-XXXf JJ) 

HV{ J,JJ)^FZ1^VI ( J, JJ) *FZ2*WI ( J,JJ) 

HVI t J , J J) =HV( J f J J ) - XXX ( JJ ) 

HV 1 1 ( J, JJ > = FZO< VI ( J. JJ)-FTHOX WI ( J» J J) 

CHI 1 I ( J , J J)=FZ3'WI { JtJJ) ♦FTH1’*VMJ ,JJ) 

IF ( ITYPt.EC.O ) GO TO 2GO 

Owe (J , JJ) = aMASSI { JJ )+VnICULU. JJ) 

UVt ( J» JJ) =AhAS5 MJJ) 'VICOL ( J» JJ)^XXX( JJ ) 

HHZ (J, J J)^FTH2'V lCOL( J t JJ ) + FZ 2YWICOL ( J , J J ) 

HH-1{J, JJ) = (FTHl:‘ V ICGL (J» JJ )-»FZlvW ICOL (J, JJ) )xXXX( JJ) 
'JHI II ( J, J J)=FZ3’'WICOL (J, JJ)+FTH3«VICOL )J,JJ ) 
liHVU T-l J) = FZl>rV icon J, JJ ) ♦FZ2’'WICDL { Jf J J) 

■ H I v( J, JJ) = (FTHl=^VICOL (J » J J) *FTH2*l- lCOL( J# JJ))»XXX(JJ) 

2v,) CONTI^aJE 

C A=PC PDF KING CUF TO BLADES 
FTJ'^KJJ) =FTHO^XXX (JJ ) 

FT IPG( J J) = FTHl 
• FTiP2( JJ) =FTH1*XXX (JJ)’'»2 
FT2Pl< JJ)=FTH2^-XXX( JJ) 

•"Z jf •!( J J ) = FZO 
FZLPK JJ) = FZl*XXX( JJ) 

FZ2PP( JJ) =FZ2 

FZ2P2( J )) = FZ2»XX'X (JJ)^»=2 

FT3P'J( J J) =FTh3 

FT3PK J j) = rrF3-'Xx:<(jj ) 

F23PJ( J J)=FZ3 
PZ dPKJJ) =FZ3-XXX( JJ ) 

11 CCNTIMUE 


AFRO JO 73 
AERC0074 
AER0U075 
AEROO:'76 
AER00077 
AER 00076 
AER 00079 
APHOGU0O 
AEROOnSl 
AER0U08? 
AER00083 
AEROGCB^ 
AERD0085 
AEROC036 
AERD0U87 
AFROGOB6 
AERQOU39 
A. PP 0**090 
AER 00091 
AER00092 
AERO DC 93 
AEP00094 
AER0C095 
A EP 00096 
AER00097 
AER0C093 
AEP00099 
AFRCOlOO 
AtROOlOl 
AERQ0102 
AFRCC103 
AEROOlCf 
AFR00105 
AER00106 
AER00107 
AER00108 




c 

AtRO FOR WI^G DUE TO ITSELF 

AER OO IJ9 



RAMDA= ARAI^OA 

AEROUllO 



RC=ROH>f=WCQO 

AERDOlll 



DAWA( 1 , 1 |=-0.5*RC=!VEL-<‘:1 WCL + WCD) 

AERC0U2 



DAWA( 1 ,2 IrRC^WCL^WTHET^^VEL 

AER00U3 



DAWA( 2t 1 »=-0. 5'»Rr.-“ WCL+WTHET=r VEL 

AEROlI 14 



DAWA(2,2 I^-RC’j-ACD-VEL 

AFRtOllS 



DAWA( 3, 1 ) =-0.5*PC*'HCDD>? VEL=^ ( WCL’^ED I S tWCVA ) 

AER00116 



DAWA( 3t 2 J=RC^'WCOD' ( i,Cf^O + WCR.A-t'WTHtT + WCL^WTH£T^EDI SI*VEL 

AER00117 



AWA (1 ,3)=G.5=>''RC^KCL>*VEL’»'^2 

AER00118 



AWA( 3»3 J = C.5^PC*lr,COOtVEI.i‘>*2» (WCMA + WCL* EOlS) 

AER0G119 



AWGI 1 tl J=DAWA( 1 , IJ^VFL 

AERC012U 


1 

AWG r, ? ) = D A WA ( 1 ,2 » ■» VE L 

AER00121 



AWG(?»ll=DAWA(2,l)“VEL 

AER00122 



AWG(2 »3 ) = DAW,A ( 2 ,2 I'-VEL 

AE‘’00123 



AWG.'(3,1 ) = DAWA ( 3 , U ‘^VFL 

AERC0124 

H 


AWG(3,3 ) = GAWA ( 3 , 2 VEL 

AERG0125 

H 

^•1 


DC 501 lI=l,FiF-r 

AER0G126 



n: 5l2 1 = 1,6 

AER00127 



DG 502 J=l,3 

AFRQ0128 



P.j 502 K=l,3 

AERO 01 29 



TSDA( I I , I , j) = TSTR ( 1 1 , I tKI’DAWACK, J J+TSHAd I ♦ I , JT 

AEFOuliL 



TSA<II, I,J)=TSTR(II,I,K)"'AWAiK,J » +T SA ( 1 1 , 1 , J I 

AERO'^131 



TSAG( U , I , J) = TSTR< i I ,I ,K> ‘'A WG ( K , J ) +TS AG ( I 1 ,1 ,JI 

AE«0ul32 


502 

rXiNT lOUE 

AERCU133 



no 5C3 1=1, £ 

AERP0134 



no 5u3 J=l,6 

AER00135 



OiJ 503 K=l,3 

AER0C136 



TSDS( I I , 1 T JI=TSDA( I I, I ,KI »STR(I1 ,K, J»+TSOS(I I ,I , J) 

AEP0ni37 



TS AS( II , I , J l = TSA( I 1, I,K)vSTR( II,K, J I + TSASni ,I ,J) 

AEP00136 


50? 

CONTINUE 

AER00139 


5ul 

CONTINUE 

AEROu 1.4G 



PE TURN 

AER00141 



Ef'i 0 

AER00142 



non 


SUBROUTINE CRDINT 

TQ DEFINE THE ORDER OF NUMERICAL INTEGRATION 

COMMON /PARMT/ ITYPE fIFLT 
COMMON /AREAl/OM6GA,R,VEL»CL,CO,RAMDA,SNOMEG 
COMMON /AREA6/NOBLO,ROH,CHOD»AI8#CK,HMAST .ALOCK ,ANOtHR 
COMMON /ARE A 5 / AH ( 4 , ^ I , A H H 4 ) t AH H f ^ , AHR Z 1 4 I ♦ AHNR ( 4 1 , AWO ( 4 > * AVO ( 4 1 
AW1(4I,AVU 4)tOAH(4f 4)*0AHC(4) rOAVl(4> tOAHI 1 1 ( 4) tCAHI II (4 ) 
a »GAHV(4) rOAHlV(4 ) 

COMMON/ AERO/AFT0P I »AFTlP0,AFTlP2»4FT2Pl,AFZGP0tAFZlPl,AFZ2P0t 
diAFZ2P2, AH I I I|4)t AHIV (4) , AHV( 41 , AHVII 4) ,AHVI I ( 4» 

9 , AFT3P0»AFT3Pl, AFZ3PGtAFZ3Pl 

COMH ON / W I C H/ WL f WG DO , WC L * WC D , WG MO » WC M A , E D I S , W TH E T I VV 
COMMON/ ARWNG/DARWAI 6 , 6 > , ARW A ( 6, 6 ) , ARNG( 6 , 3 I 
I0EBUG=0 
NN = I 

00 100 jg=i,4 
DO 100 IQ=1.4 
CALL IMTFG(FSUM,NN» JOtlC » 

AHUQr I Q) = CK*-F5UM/R'‘«2 
luo CQKTIMiUE 

NK=NN 

IGUO NN=NN+l 

DO 200 JQ=lf4 

CALL INTEGIFSUMtMN, JO,IO> 

FSUM=FSUM*CK/R 

NM=NN-NK 

GO TO (2,5,4,5»,NM 

2 AHiiJOi^FSUM 
GO TQ 200 

3 AHI H JCf=FSU^’ 

GO TO 2 )'} 

4 AHRZ(JO)=FSUM 
GO TO 200 

5 AHNR (JQ)-FSUM 


CROI H 
OP. D I 0002 
ORDIOU03 
OR0I0004 
OR 01 0005 
aROlOj.^6 
OP or DUO 7 
OROIOCO0 
OROI0009 
OROIOOlO 
OROIOOIL 
OROI 0012 
OR0I0013 
OROI or* 14 
0R0I0015 
OR 010016 
0R0I0017 
0PDI0013 
OPOI ’’ 19 
DR0IC020 
0PDI0021 
ORD!vM22 
OROI 0023 
□PQI0024 
0R0I0025 
OROI 0026 
0° 0IPn?7 
0R0I0(.'2B 
OP') 1 0029 
OPDIvt* 3:'| 
0R0I003i 
OP 01 OC 32 
DR0I0033 
OROI 0034 
0RDI0C>35 
OR 01 003 6 
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200 

CONTINUE 

0R0I0O37 


IF(NN,UT*5) GO TO 1000 

OROinnsa 


NK*NN 

OR0I0039 

2000 

NN=NN+1 

OROI0040 


DO 300 J0 = l,4 

□9010041 


CALL INTEG(FSUM,NN, JQt I0» 

0R0I0042 


FSUM=FSUM#R**2 

0RDI0043 


NM=NN‘-'NK 

09.010044 


GO TO (6,7,8,9),NM 

□9010045 

6 

AWCK JQ J=FSUM 

U9DIC046 


GO TO 300 

ORDI0047 

7 

AVD( J0)=:F SUM 

□RDIOO40 


GO TO 300 

0RDI0T49 

8 

AWl (JQI-FSUM 

□RDI 0050 


GO TO 300 

□ 9 010051 

9 

AVI ( JO i = FSUVI 

□R0I0052 

300 

CONTINUE 

□9010053 


IF(NN*LT*9I go to 2l)c,0 

0F0nJ54 


NK = NN 

DR0I0055 

3U0Q 

NN=NN+1 

□R0KJC56 


CALL I N T E G ( F S UM » MN f J Q , r Q ) 

□9010057 


FSUM=FSUM‘^CK’i'ANO 

OKDI 0058 


nm=nn-nk 

JR 010059 


GOTO ( lOt ll» 12, 13» 14, 15, 16, 17) *NM 

□ P. 01 GO 60 

10 

AFT0P1=FSUM 

QRO! 0061 


GO TO 400 

OP 0I’*06 2 

11 

APT 1P.'=FSUM 

QROI0063 


GO TO 40G 

0.0,010064 

12 

A FT IP 2=FSUM 

□9010065 


GO TO 400 

□R0I0066 

13 

AFT2P1=FSUM 

□R0I0O67 


GO TO 400 

□R0I0068 

14 

AFZOPO=FSUM 

0RDI0069 


GG TO 400 

□ RDIi;i:7j 

15 

AFZ1P1=FSUN 

09010071 


GC TO 400 

□90 1 007 2 



16 

AF22P0=FSUM 

0RDI0073 


GO TQ 400 

OROI0074 

17 

AFZ2P2=FSUM 

OR0I0075 

40C- 

IF(NN.LT.17» GO TO 300G 

nP0lTr;76 


NK=NN 

0RDI0077 

4000 

NN=NN+1 

OR 010078 


DO 500 JC=1,4 

0R0I0079 


CALL INTEGCFSUMtNN, JQ» 10» 

OR? 1 0000 


FSUM=FSUH/R+GK*ANO 

0R0I0D81 


NM= NN-NK 

0RDI0082 


GO TQ ( 18,19,20,21. f22) ,NH 

0R0I00B3 

18 

AHI I I( JQ)=FSUM 

08010084 


GO TQ 5 CO 

OR D I 0085 

19 

AHI V( JO)=FSUf*i 

OR DI 0086 


GO TQ 500 

□8010087 

20 

AHV( J0> =FSUM 

0RDI0088 


GO TO 500 

OR DICK»8 9 

21 

AH VI ( JQ)=FSUW 

ORDI0090 


GO TQ 500 

0R0IC091 

22 

AHV I K JQ)=FSUM 

3PniT^92 

500 

CQiMTINUE 

OROI 0093 


IFINN.LT.221 GO TO 4000 

0RDI0094 


NK=NN 

0POI0095 

5000 

NN=NN+1 

OROI 0096 


DO 600 J0~l,6 

ORDiDt. 97 


DO 600 IQ=1,6 

08010099 


CALL INTEG(FSUM,NN, JQ,!Q| 

OROI 0099 


NM= NN-NK 

ORDIOltO 


GO TO (23,24>,NM 

OROIOlOl 

23 

F SUM=F SUM*WL / A8S ( OMEGA) 

0R0IU102 


CARWAU'Q, IQ ) = FSUM 

ORDIC103 


GO TO 600 

OROI 0104 

24 

FSUM=F 5UM*WL /OMEGA*’?' 2 

OPDI0105 


ARWAUO, IO) = FSU« 

0R0I0106 

600 

CONTINUE 

OR010107 


IF(NN.LT.241 GO TO 5000 

OROI 0108 





NN=25 

0R0I0109 



DO 700 JQ=lt6 

0R0I0119 



DO 700 IQ=lt3 

ORDIOlll 



C A ul I N T E G 1 F S U M t NN , J'Q 1 1 C I 

0RDIQ112 



F SUM= F S UM* WL / OME G A* * 2 

ORDIOiia 



ARWGIdGt IQ )=FSUM 

0R0I0114 


700 

COMTlNUt 

0RDI0115 




□RDI01L6 



DO 801 JiC=l,4 

0R0I0117 



CALL I NT EG ( F SUM, NN , JQ , I C » 

0R0I0118 



FSUM=FSUM4^CK/R 

ORDI0119 



CAMII I ( JQ)=FSUM 

0R0I0120 


801 

CONTINUE 

0RDI0121 



NK = NN 

QRDI0122 


2003 

nn=nn+i 

CRD I 0123 

121 


CALL INTEGtFSUMfNN, JQ,IQ» 

ORDI0124 


fsum=fsum*ck*ano 

0R0I0125 



nf-nn-nk 

OR0I0126 



GOTO (27,28,29, 30), NM 

0RD10127 


27 

AFT3PG=FSUM 

0RDI0128 



GO TO 20G3 

OR 01 0129 


28 

AFT3P1=FSUM 

0R0I0130 



GO TO 2003 

0R0I0131 


29 

AFZ3PG=FSUM 

0R0I0132 



GG TO 2003 

0RDI0133 


30 

AFZ3PL = FSU'M 

ORDI0134 



IF( IDE8UG.EO.O) GO TO 450 

0R0m35 



h PI T E ( 6 , 5 0 ) ( ( A H ( I , J ) , J = 1 , 4 » , I s 1 , 4 ) 

□RDI0136 


50 

FORMAT( ////1X,2X, ' AH • , 4( T1 0 ,4(E 15o 7,2X) /IX 1) 

OR DIO 137 



W P I T E ( 6 , 5 1 ) A H I , A HI I , A HR Z , AHN R , AH 1 11 , AH I V , A H V , AH V I , AH VI I , G AH I II 

□R0I0133 


51 

FORMAT (2X, • AHl* ,T10 , 4 ( E 15 .7 , 2X ) 

0RDI0139 



% /2X,*AH1I', T 10, 4(E15e 7.2X1 

OR DIO 140 



% /2X,'AMRZ*, T10,4(E15.7,2X) 

0RDI014L 



% /2X,*AHNR', T10,4(E15j772X> 

0R0I0142 



* /2X, •AHIII*, 110,4(E15.7,2X) 

0R0I0143 



t /2X,'AHIV*, T10,4(E15.7,2X) 

0R0I0144 
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a /2X,»AHV*» T10,4(El5.7t2X» 

* /2X,*AHVI», T10,4(E15.7,2XJ 

% /2X»*AHVH', T1G*4(E15.7,2XI 

a /2Xt'CAMI I l» , T10,4(El5o 7,2X1 

WR I T E ( 6 , 8 2 1 AFT 3 PO , A F T 3P I , A F Z 3P 0 , A FZ 3P I 
82 FORMAT(2X,* AFT3PO’ ,T 10, El 5. 7 

* /2X,»AFT3P1* ,TlO,E15o7 

* /2X,'AFZ3P0* ,T1G,E15.7 

4 /2X,‘AFZ3P1' ,nO,E15.7 

450 GONTTNiUE 

1F(ITYPE.EQ.0| GO TO 851 

NM=NN+1 

DC 10 1 JQ=1,4 

00 101 IQ=1,4 

CALL INTEGIFSUMtNN, JQ,IQ> 

0 AH ( JO, I Q 1= OK’S: FSUH/ R*42 
101 CONTINUE 
NK=NN 

20G1 NN=NN+1 

00 301 JQ=l ,4 

CALL INTEG(FSUM,NN,J9,IQ» 

FSUM-FSUM*R**2 

NK=NN-NK 

GG TO (32,33),NM 

32 OAWOI JO)=FSUM 
GO TO 301 

33 OAVl (JO)=FSU'M 
301 CONTINUE 

IFtNN.LT.33I GO TO 2001 
NN=NN+ 1 
DO 302 J0=l,4 
CALL INTEGIFSUM,NN, JO, IQ) 

FSUM=FSUM'('GK/R 
OAHM I(JO)-FSUH 
3 02 CONTINL"= 

NN=NN+1 


« * 


0RDI0145 

0R0ID146 

□R0I0147 

I 0RDI0148 

0R0I0149 

0ROIO150 

0PDI0151 

0RDI0152 

) 0R0I0153 

0R0I0154 
0RDI0155 
0R0I0156 
OROI0157 
□R0I0158 
0RDI0159 
OROIO160 
0R0I0161 
0R0I0162 
0R0I0163 
□ R0I0164 
OR0I0165 
OROI0166 
OROI0167 
ORDI0168 
0RDI0169 
OROI017O 
0R0I017I 
QR0I0172 
ORDIG173 
OR0I0174 
OROI0175 
0R0I0176 
ORDI0177 
0RD^0178 
0R0I0179 
OROIOI80 
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DO 780 j!0=l,4 

CALL INTEG(F5UM,NN, JO, 10) 

FSUM=FSUM*Ck/R'^ANO 
QAHV(JO) = FSU'M 
78C CONTINUE 
NN=NN+ I 
OQ 781 J0=l,4 
CALL I NTEG ( F SUM , NN , JO, I 0 ) 

F SUM= FSUM^CK /F *ANO 
OAHIV(JQ>=FSUM 
781 CONTINUE 

IF C ICFBUG.EQ.OJ GO TO 851 
WRIT£(6,80» (lOAHU , J», J = 1,A>, 1=1, 

80 FORMAT! 2X, 'OAH' , A( T 10, 4IFL5. 7,2X ) 71 X) ) 

WRITE (6, 81) 0AW'O,0AVi,0AHin ,OAHV,OAHIV 

81 FQ!RMATI2X,*0AW0* , Tl 0 , A < E15 , 7 , 2X ) 

/2X,'0AVI' ,TtG,A(E15.7,2X) 

« 72X,'GAHIII* ,T10,4(E15.7, 2X) 

« /2X,'0AHV* ,T1G,4(E15, 7,2X) 

« /2Xt'QAHIV‘ ,T10, 4! E15.7,2X) J 

651 RETURN 
END 


QRDIUISI 
ORDIOia? 
ORDI0183 
0R0I0184 
OROI 0185 
GPDI.U96 
0RDI0187 
OR") I 018 3 
QpDiJiaa 
OROI 0190 
0R0I0191 
OPOni92 
nR0I0193 
OROI.) 194 
□R0r0l95 
O'? 01 J 196 
'JR 01 '19 7 
OROI 0198 
DP 010199 
OROIO20’0 
HROI 0201 
QP 0n2'2 
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S Ij BP.aUT I N E I NT E G < F SU« t N N . J « » I 0 1 

NUMERICAL INTEGRATION GALSSIAN QUADRATURE 

COMMON /APEA2/NPT,XXX (2C ) »A(2i)) 

StM==0.0 

DO 4C JiJ=l,NPT 
X=XXX( J JJ J 

S UM= S U M+ A C J J J > *F(X,NN,JJJ» J Q , 1 Q I 
4G CONTINUE 
FSUM-G.5»SUM 
RETURN 
END 


to 


IMTEOCOl 
INTF ;r't 2 
INTE0C03 
INTEuiiJA 
I NT EUc>u 5 
INTE0006 
1NTEJ007 
INTE0003 
INTE0009 
INTEOOlO 
INTEOCll 
INTE JG12 
INTE0013 
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F t NC T I C N F ( X , Nf<l , J J J , J-G , 1 C I 

TO DEFINE THE INTEGS/iND FUNCTIONS 

CCMM0N/AREA4/Hl't,4,2i!l» ,FH 4,20),HIl (At 201 tHRZ( At20) tHNR( A ,20» t 
$W0(A,20I t V0(A»20) tWl (A 1 20 > t VI ( At 20 ) 

a ,0H( At At2LN0HU( A,20» tOVU At2G» tOHI 1 1 {A,20ItCHin (At 20 I 

a t0HiV(AT20)»QHIV( At20* 

G OMMQN/ A KKH / F TOP 1 { 20 I t F T 1 P 0 i 2 0 ) t F Tl P2 ( 20 ) » FT2P I ( 20 ) t F Z2 Po ( 20 » t 
/ F ZOP 0 ( 20) t FZ IP U 20 ) t F Z 2 F 2 ( 2 0 1 

a ,FT3P0( 20)tFT3Pl (20 ) t FZ3P0 ( 20 ) t FZ3P 1( 20 ) 

COPMON/ADFByHII I (At20) , FI V(At20) tHV(At20) tHVl ( A t20 ) t HV II ( At 20 ) 

C C MMON / W I M G A R / T S DS ( 20 1 6 1 6 I , T S A S ( 2G 1 6 1 6 ) t T S AG ( 20 1 6 1 3 J 
GC T0(l,2,3 ,At5»6,7tB,9 , lOtllt 12t litlAt 15t I6t 17t 18» 19t20t 
a2It22t 23t 2A,25t 26,2 7t 28, 29t 3Gt 31t32t33t3At35 ,36) ,NN 
L F=H( JC, K, JJJ ) 

RETURN 

2 F-HKJOtJJJ) 

w RETURN 

3 F-HI I ( JQ, JJJ I 
RETURN 

A F=HRZ( JCtJJJ) 

RETURN 

5 F=HNP( JO, JJJ I 

RETU17M 

6 F= W3(JiQ,JJJ) 

RETURN 

7 F= VQUCtJJJ) 

RETURN 

3 F= NKJC.JJJ) 

RETURN 

9 F= VKJQtJJJ) 

RETURN 

li» F = FTOPUJJJ) 

RETURN 

U F=FT1PG(JJJ) 


F OUUl 

F 2 

F 0003 

F OOOA 

F 000 5 

F 0006 

F JO 0 7 

F 000 3 

F 000 9 

F 0010 

F 0011 

F 0012 

F 0013 

F OOIA 

F 0015 

F 0016 

F 0017 

F 0013 

F 0019 

F Ju20 

F 0021 

F 0022 

F Ov2 3 

F 002A 

F 002 5 

F 0026 

F 002 7 

F ul28 

F 0029 

F U03u 

F ,um 

F 0032 

F 0033 

F 003A 

F 0035 

F Vi 036 
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R ETUiRN 

F 

0037 

12 

F = FT1P2UJJ ) 

F 

JU38 


RETURN 

F 

0039 

13 

F = FT2P1IJJ J > 

F 

CU40 


RETURN 

F 

JOAl 

lA 

F=FZQ'PU( JJJ > 

F 

,;(A2 


RETURN 

F 

0043 

15 

F^FZIPI ( JJJ) 

F 

0044 


RETURN 

F 

0045 

16 

F=FZ2P0( JJJI 

F 

0046 


RETURN 

F 

0047 

17 

F = FZ2P2 (JJJ ) 

F 

Ou48 


RE TURN 

F 

0049 

18 

F=HIIIIJQ, JJJ) 

F 

0 J50 


RETURN 

F 

005 1 

1<5 

F=HI V( JC ,JJJ) 

F 

0052 


RETURN 

F 

<'i.)5 3 

20 

F=HV( JQ. JJJ) 

F 

0054 


RETURN 

F 

005 5 

21 

F = HVI (JQ, JJJ ) 

F 

-j 5 6 


RETURN 

F 

0057 

22 

F=HVI I ( JQ,JJJ) 

F 

‘.vU 5 8 


RETURN 

F 

1)0 5 9 

23 

F = TSDS( JJJ,JC:,1Q) 

F 

0 0 6 0 


RETURN 

F 

1 

2A 

F=TSAS( JJJ, JQ, IQ) 

F 

0062 


RETURN 

F 

0063 

25 

F=TSAG( JJJ, JQ, IQ) 

F 

(.>064 


RETURN 

F 

0065 

26 

F=CHIII ( JO, JJJ) 

F 

0«.i66 


RETURN 

F 

CC67 

27 

F-FT3P0( JJJ) 

F 

0068 


R ETURN 

F 

0069 

28 

F-FT3PK JJJ) 

F 

0070 


RETURN 

F 

0071 

29 

F = FZ3P0(JJJ ) 

F 

0072 
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HETURN 

30 F=FZ3P1IJJJ» 
RETURN 

31 F-OH(JQ,IC, JJJI 
RETURN 

32 F=OWOtJQ»JJJ» 
RETURN 

33 F=0Vlt JQ» JJJ i 
RETURN 

3A F=DHIII ( JO, JJJ I 

RETURN 

35 F=OHV( JQ,JJJi 
RETURN 

36 F=CpHIV( JQ, JJJ> 
RETURN 

END 


F 0073 
F VJ74 
F 0075 
F 0076 
F 0C77 
F 0078 
F 0079 
F J080 
F 0081 
F (>082 
F 0083 
F 0u84 
F u085 
F 0036 
F 0087 
F nj33 



noon 


SUBRfJUTINE AINER 

T.T DEFINE THE EQUATIGN'S COEFFICIENTS IN MAVRI X FORM RELATING TO 
INERTIA TERMS 

CCMMON /PARMT/ ITYPE tlELT 
C 0 MM QN / A R e A I / 0 MEG A,R,V6LfCLtGD,RAM0A,S NCM EG 
COMMON /AREA6/NOBLD,PON,CHOD,AIB,CK»HMAST ,AL0CK »AN0.HR 
COMM ON / A R E A3 / AH 1 4 , 4 1 , AH 1 ( 4 1 « AH I U 4 ) , A HRZ 14 » • AHNR ( 4 1 , AWO ( 4 } , A VO ( 4 1 
a,AWI(4) .AVi( AItOAHl4,4),aAWO(4) «0AVU4| tGAHl 11 (4ttCAHI IU4I 
a tOAHV(4I »0AHIVI4) 

CCMM0N/INERTI/TTMT(4,6 ,3 ) ,TTCT J( 4 , 6 »3 I » AM JT 14,3 , 6 » , C JT (4, 3f 6 > 
eOMMON/AMATIC/TT(6,5»,C(6,6l ,T(5,6) 

DIMENSION AMT(4,5,3»,CJ( 4,3,5), AM(4,3,5J ,TCJ(A,5,3» 

DO 50 1=1,4 
DO 50 J=l,5 
DC 50 K=l,3 
AMT( I, J,KI=0.0 
50 CJ(I,K,J 1=0.0 

DC 210 NM=l,4 , 

AMTINM, 1, 3 )=-AVO(NM) /R 
AMT (NM,2,1 )=AW01NMI/R 
ANTINM, 3,2)=-AVC«Nr^)*HR 
AMT(MM,3,3»=AW1(NM) 

ART(NM,4,2)=-AW1 (NM) 

AMTI NM, 4, 3> = -AV0INM»’*HR 
AMT(NM,5, 1 |=AV1(NM) 

IF( ITYPE.EQ.O) GO TO 30C 
AM T ( NM , 2 , I ) = QA W 0 ( N M ) /R 
AMT{NM,5,1) = GAVUNM) 

300 CONTINUE 

DC 2 1=1,6 
OC 2 J=l,3 
CO 2 K=l, 5 

2 TTMT (NH, I, J) = TT( I , K ) * AMT ( NM, K, J ) + TTMT f NM , I , J » 

OG 3 1=1,6 


AI NbCOJL 
A INEJ! 12 
AINE)u0 3 
AINE0004 
AINEuf 35 
AINE0006 
AINEC007 
AINE0008 
A I NE 0009 
AINEOOlO 
AINEOOll 
A I N E 0 U 1 2 
AINE »013 
AINE0014 
AINE0f.iI5 

aine:)016 

AINE0017 
AINF jJia 
AINE0019 
AINE00 2Ct 
AINEm'21 
A! NE0022 
AINE0023 
AINE J024 
AINBD025 
A I HE jr . 26 
AINETU27 
AINE )u2'3 
AINE. <029 
AINE0030 
AINE J031 
AINE0032 
AINE0033 
AINE)034 
AINEUU35 
AINE)036 
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DG 3 J=2f3 

3 TTMT INM , I , J J=0.5*TTMTlNf* , I , J i 
CJ(NH,2 ,3 )s2,0#AWUNf< ) 

CJ('NM»3,^ ) = 2.C»AWHMM) 

DC 5 1=1,5 
DC 5 J=l,3 

5 TCJ (NM, I, J1 = CJ(NI«, J, I ) 

CC 6 1=1,6 

00 6 J=l,3 
DC 6 K=l,5 

6 ITGTJXNM,! ,Jl = TT(I ,KinGJlNM,K,J»+TTCTJ(NM, I,J » 
DG lUO 1=1,6 

DC UO J=2,3 

ICO Tier JU«,I , J)=g,5*TTCTJ(NM,I ,J) 

CC 7 1 = 1,5 
CC 7 J=l,6 

7 T( I, J »=TTU, 1 ) 

CG 8 1=1,3 

DC B J=l,5 

8 AM(KM, I , J ) = A>'T1NM, J, I ) 

DO 9 1=1,3 

DC 9 J=l, t 
DC 9 K=l,5 

9 JTlNf', I , J1 = AM(NM,I , K MT i K , J ) +A^' JT ( NK , I, Jl 
DQ It) 1 = 1,3 

CO 10 J=l,6 
DC 10 K=l,5 

10 CJTINM, 1, J )=CJ(NM, I,KJ>s^T(K, J)+CJTINM,I ,J) 

21u CONTINUE 


AINE<^C 37 
AINF0038 
AI NEUo39 
AIIMC0O40 
A I NE 0041 
AINEuD42 
AINF0043 
AINEO044 
A I NE 1045 
AINEJ046 
AINBJC47 
AINED048 
A I NE 00^9 
AINE0D50 
AINE0051 
AINE0U52 
AINE0053 
AINE0054 
AINE0D55 
A!NEIj056 
AINE0057 
AINeOL'5 8 
AINE0U59 
AINE006O 
AINE ) 06 l 
AINE0062 
AINEJ063 
A I NE 1064 
AINE0065 


RETURN 

EN.D 


AINE Ji;66 
AINE0067 


o n o o 


SLBKOUTI^E AtRQf'T 


TO DEFINE THE EQUATION'S COEFFICIENTS IN MATRIX FORM RELATING TO 
AEROCYNAMIC TERMS 

common /PARMT/ ITYPE tlFLT 

COMMON /AREA6/N0BL0sRCH,CH0Df AIBiCKtHMAST fALOCK fANO.HR 
C0MM0M/.ARtA5/AH{4,4l »AHI (Al ,AHI!U) , AHRZ « , AHNRUI » AWO 1 4 I ,AVO< 4 » 
S,AW1(4KAV1 { 4) ,0AH{4»4I,CAW0(4l,0AVU4>faAHIII(4»fCAHIin4) 

£ rCAHV(4» tOAHIVU) 

COMMON / AREAl/OMEGAr R»VELfCEfCD,RAMOA,SNOMEG 

CCMMCN/AERG/ AFTaPi,AFTlF0tAFTlP2»AFT 2P1 1 AFZOPO, AF Z IP 1 , AFZ2PO , 
aAFZ2P2;. AFl II(4»,AHIV(4), AHVI4I ,AHVi<4J »AHVII(4) 
tt , A FT 3 P 0 , A F T 3 P 1 f AF Z3 PO f A F Z 3P I 

C0MMQN/AMATrC/TT(6,5) tC|6,6| .T(5,6I 

COMMON /ARR/WGUST(6fE)fCAMXI 6,6) » AMX( 6 * 6 1 ,OQ 1 4* 6, 31 i 01 4 ♦ 6, 3 » 
a TDHMAX(4,3,6»ihMAX(4,3,6» 

COMMON /COUPL/ AKPC ( 4 I r AKP0I4I 

DIMENSION CDHMX(4,3f 5) ,CHMX(4,3i5I 

° DIMENSICN GUST(5 ,6) ,GCAf<X(5,5»tCCDAMX(6. 5I,GAMX< 5,5I»CCAMX(6,5» 

TtCOQlA, 5,3)»CQ{4,S, 31 
DC lUO 1=1,4 
CC 1 00 J=l,3 
CC IJO K=l,5 
COHMX( I , J,K»=0.0 
CHMXI I, JtK) = u, 0 
CCO( I,Kt J )=0.0 
ICO CQ( I ,K.. JJ=O.L) 
no 101 1=1,5 
DC 102 J=l,5 
CAMXH , JJ=OoO 
1J2 CCAMXI I, J 1 = 0, ,) 

CC 103 K=l,6 
GUST (1 ,K)=U,t 
CCDAMXIK, I ) = o,0 
CCAMXIK , I 1 = 0.0 


AERDOCOl 
AER0UU02 
AERG0O03 
A E RCuOO 4 
AFROtrO IS 
AER0J006 
AFRU00J7 
AEROQfjOB 
AER00C09 
AEROOOlO 
AEROOOll 
AERG0012 
AER0U013 
AERD0014 
AER00015 
AERGUOlfa 
AER00017 
AEROOulB 
A£RCu019 
AERO 30 2 u 
AER0-.v2l 
AERG0022 
AER00023 
A E RO<JU 2 4 
AER00025 
A ERG'.'; 1 26 
AERCU027 
AFRO 1U2R 
AEROO's29 
AERC0030 
AER0J031 
A£R00u32 
AER00033 
AEROU.,34 
AEROU035 
AER00J36 


103 
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IJl CONTINUE 

DO I l=lt2 
DO 1 J=l»fe 

1 Til , J)=T( 

CO 2 1=1,6 
DO 2 J= 1 , 2 

2 TTl I,J1=TTI I,J)/R 
GUST11,U=0.5’^AFT1P0 
GUST12,3)=AFZ2P0 
GUSTI3, 1>=-0.5*AFZ1P I 
GUST{3,2 ) =-HiR»AFTlPO »C.5 
GUSTl A,i l = 0.5*HR=i'AFTiP0 
GUST IA,2) =-AFZlP I ♦0.5 
GUST(5,3) =AFT2P1 

CUSTl 1,6) = J.5*AFT3P*J 

GUSTl2,4»=AFZ3Pa 

GUS.Tl 3, 5) =-0o 5i'HR>f‘AFT3PC 

GU5Tl3,6il=0.5*AFZ3Pl 

GUST (4,5) =~0.5vAFZ3Pl 

GUST ( A , 6 ) =-0 . 5*HR«AFT 3P0 

GUST15,4)-AFT3P1 

DO 5 1=1,6 

DO 5 J=l,6 

DO 5 K=l,5 

5 WGUSTl I , JI = TTl I ,K)*GUST(K, J )+WGUST(I ,JI 
CO 6 1=1,6 

CO 6 J=l,3 

6 WGUSTl I , J ) = WGUST(I , J » -“A B St RAMDA » 

CnAMXll ,1 » = 0.5'*AFTIPC 
CDAMX(l,3)=-0* 5*AFT2Pl 

CGAMXl l,4)=a.5*HR^AFTlPG 

CDANX(2,2)=AFZ2PO 

CDAMXt?,5>=AFZlPl 

CCAMX13,! )=-0.5*AFZlPl 

C D AM X ( 3 , 3 ) = 0 . 5 * ( HR**2 ♦ A F T I P0+ AF Z 2P2 ) 

CDAMX(3,4 ) = 0.5*HP*( AFT2P I-AFZIPII 


AER00037 

AER0U038 

AFR0GGi4 

AfcROujA 

AER00041 

AfcRD0u42 

AERGv'ijA 3 

AtR00044 

AERQC045 

AERCJCA6 

AERO 004 7 

AER0li048 

AERG3049 

AERLlU05iJ 

AER0J051 

A£R.jJ052 

AERa0053 

AERD0054 

AERa0055 

AFROUC'56 

AfcRC0057 

AEROOU58 

AER0J059 

ABR00060 

AtROJUbl. 

AFR0UU62 

AER0J063 

AERaOC’64 

AERD0065 

AER00066 

AERGUU67 

AER00068 

AER0006g 

AEROU070 

AER00071 

AER00072 
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CCAMX(4rl ) = u,5’«HR*AFTlP0 

CCAMX(4,3 » = HR+( -AFT2P1+AF21PU *0.5 
CGAMX(4,^ ) = 0.5*( HR=<‘*2*AFT1P0+AFZ2P2> 
CCAMX(5,2)=AFT2P1 
GDAMX<5»5)=AFTIP2 
DC 9 1=1,6 
DC 9 J=l,5 
DO 9 K-l,5 

9 CCDAMXn, J )=TT( I,K)*COAPX(K,J>+GCOAMX( I,J) 

DC 11 1=1,6 
DO 11 .J = l,6 
DC 11 K=l,5 

11 DAM XI 1 , J >=CCDAMX( I , :<> +T I K , JI+DAM X ( I , J » 
APDA=AflS{RAMDAJ 

CAKXd ,A)=-do5* AMDA’S'AFTIPO+AFZCIPO 
CAMX(3, 3 » = HR’M AFZOPD-t-5’^ AMDA+AFTIPOI 
CAMX(3 ,A1 = 0,5* AMDA*AF21PH-AFTQP1 
CAMXI A,3 »=-0,5* AMiDA^AFZlPl 
CAMX(4,4I = HR*(-0.5X' AMD AA AFT IPC ♦ AFZOPU I 
DC 12 1=1,6 
DC 12 J=l,5 
DC 12 K=l,5 

12 CCAMX^ I, J ) = TTU ,KJ*CAMX(K, J)+CCAMX( I , J» 

CC 13 I=i,6 

DC 13 J=lt6 
DO 13 K=i, 5 

1 3 AMX { I . J ,' = CC AMX ( 1 , K J *T ( K , J » + AMX U , J » 

DO 40 NM=1,4 

CCQ{N!M,1,3>=-u. 5*AHI IKNMI 
r.E0(NV,2,n = AHV(NM» 

CDOtNM, 3,2 l=-D,5*HR^-AHIM INMI 
CCQ(MM,3,3) = C.5*AHVUNM ) 

CGOI NM,4,2 )=-0.5*AHVI (NR ) 

CC0('JM,4,3 > = -0.5=t=riR*AHI I KNMl 
CC0(N'M,5,l >=AH1V{NM> 

GCl(NMitl,2J=0ot^*AHIM l^R I TSfvCMEG 


ACR0uO73 
AERQ0U74 
AER0)075 
AERG0076 
AERG0O77 
AER00078 
A ERGO 07 9 
AER30030 
AER00081 
AER0J082 
AER03083 
AEROJO04 
AERQ0U85 
AER00086 
AER0a087 
AERDOQBe 
AER00089 
AER00J9O 
AERQ0091 
AER00092 
AER0JU93 
AEROC’094 
AERDUG95 
AER03096 
AERQ0L97 
AER.10098 
AERC0099 
AERGO I Jo 
AERQOlul 
AER00102 
A ERGO L -3 
AFR0'^lu4 
AER0ulu9 
AERODIOE 
AERC0107 
AEROJjlOa 
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CQ ( NM , 3 , 2 ) =U . ( AH VI I C NH I -AH VI ( NM I ♦SNOMEG ) 

C Q t NM , 3 » 3 } = -0 . 5* HR* AH 1 1 U NM I ♦SNOMEG 
C0(NM,4,2)=0,5*HR*AHI II (NHJ *SNQMEG 
CQ(NM, 4t3) = G.5*( AHVIHNM I- AHVltNMI *SN0H6G) 

IF(ITYPE.EO.O) GO TO 110 
C DQ ( NMt 2> 1 ) = OAHV ( NM » 

CDQINMf 5, 1 )=OAHIV(NM ) 

CQ(NM,1 ,3 J=0.5*AKPC(NMJ*AFT3PO 
CQ(NM,2, 1 J = AKPCJINH>*A'F23P0 

C0 (NM» 3, 2 ) =COl NM» 3,2) -0 ,5*HR*AKPC( NM )*AFT3P0 
CQ(NM,3,3)=C0( NM,3,3)+0.5*AKPC(NM)*AFZ3P1 
CQ(NM,4, 2)=GQINH, A,2)-0.5*AKPC(NMI*AFZ3Pl 
G Oi NM , 4 , 3 ) = CO I NH , A , 3 ) -0 . 5 *H R* AK PC ( NM ) * AFT 3P 0 
G 0 ( NM , 5 , 1 ) = A K P 0 1 NM ) * A F T 3 F I 
lie CONTINUE 

DO 16 1=1,6 
DO 16 J=l,3 
DO 16 K=l,5 

QINMrl , J)=TT( I ,K)*CQINH,K,J )i-CMNM,t,J| 

16 DQ(NM, I, J) = TT( I,K )*CDQ'C NM, K, J l+DQI NM, I , J ) 

C AEPC FOP BLADES DUE TO WING MOTION 
CDHMX(NM,1,2 J=AHRZ(NM) 

G D HM X { N M , 1 , 5 ) = A HN R ( N M ) 

CDHMX ( NM ,2,3) =-HR* AH I I NF ) 

C0HMX(NM,2,4)=-AHI I (NM) 

CDHMX ( N M, 3 , 1 ) = - AH I (NM ) 

CDHMX(NM,3,3) = AHI I (NM) 

CDHMX ( NM, 3, 4 ) =->HP* AH I ( NM ) 

CHMX(NM,2,3)= AMDA*AHl(NM) 

CHMX (NM , 3 , 4 )= AMDA*AH I ( NM ) 

DO 20 1=1,3 
DO 20 J=l,6 
DC 20 K=l,5 

OHMAX(NM, I,J)=C0HMX(NM,1,K)*TCK,J)*DHMAX(NM, I, J ) 
20 HMAX'NM, I , J )=CHMX ( NM , I , K ) *T( K , J ) +HMAX ( NM , I , J ) 

AO CONTINUE 


AER00109 
AEROOllO 
AEROOlll 
AERO0112 
AER00113 
AER00114 
AER00115 
AER00116 
AEROnilT 
AER00118 
AER00119 
AER00120 
AER00121 
AER00122 
AER00123 
AER00124 
AER00125 
AER00126 
AER00127 
AER00128 
ACR00129 
AER00130 
AER00131 
AERO 01 32 
AER00133 
AER00134 
AERG0135 
AER00136 
AER00137 
AER00138 
AER00139 
AER0U140 
AER00141 
AER00142 
AfcR00143 
AER00144 



RETURN 

END 


AER00145 
A E ROD 146 



S U BROUT I EQMTX ( I DOF ) 

G 

G TO DEFINE THE GCEFFICIENT MATRICES A,B,C AND 0 IN EQ. 2.3 

C 

CCMMON /P^RMT/ ITYPE ,IFLT 

COMMON/ ARtAS/BLAMt 4 » tWLAM(6) ,BRAM(A» ,WRAM(6J TBLAMaC4)» BRAMG(A) 
CGMMON /iREAl/aMEGA,R,VELTCL,CD»RAMOA,SNOMEG 
CGMMCDN /APEA6/MaBlD,PCH,CHaD,Aie,CKtFMAST ,A1.0CK ,ANO,HR 
CCMMDN/AMATIC/TT(6,5 » tC( 6,6> ,Tl5t6I 

CCHMDN/A PEA5/ AH(4,4} , AHl (41 , AHM 14 ) t AHRZ ( 4 I , AHNRI 4i , AWO{ 4) , A VO ( 4 1 
3, AWK 4) ,AV1( A) ,CAH(4»4) f aAWO(4l ,OAVl (4) . OAHI I ! 141 .CAHTII (4 1 
3 ,CAHV(4),QAH[V(4) 

CEMMCN/ IK£RTI/TTMT(4»6 ,3 ) ,T TCT J ( 4 f 6 ♦ 3 I , AM JT ( A, 3 , 6 ) , C JT ( 4 , 3t 6 I 
CCMMJN /APR/WGiJST< 6,6J , C AMX( 6 , 6) , AMX (6 ,6 I ,DQ ( 4 1 6 » 3 J , 0( 4 , 6 ,3 I 
3 , CH>'AX( 4,3t 6 It FMAX(4, 3,6) 

G0MMO'N/ARkNG/OARV*A(6,6) ,ARWA(6 ,6) T ARWG(6, 3) 

CCMMON/OOF18/AAY( 19, 19) ,BBY( 19,19) tCCYI 19i 19) ,0DY(19,6) 

COMMON /COUPL/ AK PG 1 4 ) , AKPO ( 4 ) 

RITE (6,4 £6) 

481.* FORMAT (///IX, 78( )//l£X,44HFQUATI0iNS OF MOTION ; A*X« + e*X'+C 
&=5‘X=D>«‘E ,//IX,75( 1H-)//// ) 

DO eul 1=1,18 
8G1 AAY(I,IJ=1.G 
DC 802 NM=l,4 
DO 832 1=1,3 
DC 8k'-' 2 J = l,6 

AAY( 3*(NM-1) + I , J-H2)=APJT(NM,I ,J) 

802 AAY(J+12,3*(NM-1 )+I )= ANC *TTMT ( NM , J , I ) 

DC 8 04 1=1,4 

eeY( 3i‘I-l,3^I > = 2.1*SKCMEG 
8J4 PEY(3^I ,3>* I-l) = -2,u*SNCMFG 
PC 805 J=i,4 
DC 8vi5 1=1,4 
DO 805 K=l,3 

905 BBY(3*( J-l)+K,3+( 1-1 ) + K )=AH( J, I ) 

DC 8 >6 NiM = i,4 


EQMT3C01 
EOMT0002 
EQMT0003 
EQMTUU04 
E0MT0J05 
EQMT0Ju6 
EQMTuOO? 
EOMTOOOe 
F0MTJ0U9 
EOMTOOlO 
EOMTUOLl 
EQMTD0L2 
EQMTUC13 
EOMTCa 14 
EQMT0G15 
E0MTuUl6 
E0MT0017 
EQMT0013 
E0MTJ019 
FQMT(ii/2u 
EQMTU021 
eaMT9C22 
EQMTaa,73 
EQMT0U24 
E0MTU025 
E0MTU026 
EQMTT-J27 
EQMT')028 
E0MTUO29 
EQMTJU3.1 
EDMT0031 
'.MTG032 
EQMf0033 
EQMT0034 
EgMTJU35 
EQMT3D36 
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8C6 

8 ca 

809 

810 

811 

812 

813 

a lA 
816 


DC 806 1=1,3 
DO 80-6 J-1,6 

Bl?Y( 3*(NM-1 )*-l, J + l2l = 0HMAX(NK»I»J»+CJT(NM,I,Jl*SN0MeG 
8BY{ J + 12,3»(NM -ll + I J=CC(NM,J, I I - ANQ^TTCT J < NM , J , I ^»S^^aM6G 
DC 808 1=1,6 
DC 808 J=l,6 

BBY(1+-12, J+12 I =DAMX( I , J »+C( I , J > *SNCMeG-D ARW A II t J I 
CG 8^9 1=1,4 

CCY(3^( I-lJ + l,3*n-l 1+1 t = ei-AM(I » 

CCYt3^( I-ll + 2,3*( I-D+2 »=BLAM(I )-l.O 
CCY(3*I,3*I )-BLAM( I )-l.C 
DC SIC J=l,4 
CO 810 1=1,4 

CCYC3+J-1 ,3*1 l=AH( J, I >*SNOMEG 
G C Y t 3* J , 3* I - 1 ) =- AH ( J , n ♦ SNOMEG 
DG 8U KM=1,4 
DO 811 1=1,3 
DO all J=l,6 

CCY i3*(NM~l 1 + 1,J+12 1=HKAX«NM, I ,J J 
CGY( J + 12,3*(NM>U + I)= G(NM, J,I> 

DG 812 1 = 1,6 
DO 812 J=l,6 

CCY( 1 + 12, J+12) =AMX( I ,J) -ARWAd ,JJ 

CE 813 1=1, 6 

CCYt 1 + 12, 1 + 12 ) = CCY( I + L2,I + 12) + WLAMC 1 1 
DC 814 NK=1,4 

C0Y(3*(NM-U+1,4) = -CAHII UN'M » 

DD Y < 3* ( N M - 1 ) + 2 , 5 ) =-C AH I 1 1( N>M I 
CCYI3*(N'^-1 )+3,6> = ~CAHII KNM) 

DDY{3*NM-1,2)=AHUNM» *ABS(RAMCA| *t-1.0l 

DC Y ( M- 2 , 3 » = AHR Z ( N 1“ ) * A B S ( R AM 0 A » * t - 1 • 0 I 

CGY(3*NM, U=-AHI(lvJMI ’♦AfiStRAMDA) *(“l.O) 

DC 815 1=1,6 
GO 816 J=l,3 

DCYH+12,J)=-WGUST( I,J» +ARWGn,JI 

DC 617 0=4,6 


E0MT0037 
EQMTj»:>38 
eOMT0039 
CQMTUC40 
EflMTv }041 
E0MTU042 
tQMTtlU 43 
E0MT0044 
EU»'TD045 
ECMT0046 
E0MT0047 
E0MT0C48 
E GMT 064 9 
E0MT005C 
E0MTJ051 
EQMT0052 
EQMT0053 
FQMTDJ54 
EQMT0055 
E0MT0056 
EQMT0057 
E0MT0C58 
EOMTC059 
EQMTJ060 
tQMT006l 
EQMT.J062 
GQ'4TD063 
EOMT 3064 
EQMT0365 
E0MT0C66 
EOMTODo? 
EQMTC063 
EGMT0069 
ECMT0:j7,j 
EOMT0071 
EGMTOU72 
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017 

C€Y( 1 + 12, J »=-WGUST( I ,J) 

E0MTT073 

815 

CCNTINU6 

60^^70074 


IF( ITyP£6E0«0)G0 TO 300 

EOMTOG75 


no 50 j J=l»4 

E0MTCO76 


ec 5uu 1=1,4 

E0MT0077 

5Ci) 

R6Y( 3=i‘( J- U + 1,3*{ I-l 1 + 1 ) = QAH( J , I ) 

EOMT0078 


EC 550 1=1,4 

EQMTGJ79 


CeY<3=?(I-U + l,3*( I-D + l ) = BL/1M0( I ) 

E0MTG080 


CCY<3*( I-l)+2,3+( I-1)+2J=BLAM(I )-1.0 

EOMTC 381 

550 

CGY( 3+I,3*I )=BLAM( I )-l,e 

EQMTJ082 


DC 502 J=l,4 

EQMT'108 3 


EO 502 1=1,4 

EQ'1TC)084 


GCY (3>i‘J-2,3^I-2)=CGV(3=<'J-2, 3v!-2)+AKP0( I )»GAHI I I ( J ) 

EQMT0085 


CCYi3«J^l, 3*I-U=CCY(3*J-i, 3*1-1 »+AKPC(I »*CAHI II (J) 

EQ -IT 3086 

5J2 

CCY(3*J ,3*1 )=CCY(3*J ,3*1 I+AKPG ( I )*CAHI I I ( J) 

E0MTCC87 


DC 501 NP=1,4 

E0MT0U88 

5ui 

CDYI3*(NM-1) +1 ,4)=-GAHI I I (NM) 

E0MT0u89 

300 

CENT I NOE 

E0MTC090 


IF ( IDOF.EQ. 9) GO TO 100 

E0MT0091 


IF( IFLT ,NE.OI GO TO 205 

eUMT0u92 


V.RIT£16,451> 

EOMT0093 


WRITt(6,£)U AAYn,J),J=l, 91 ,1=1,181 

EQMT0094 


wPITE(6,6M ( AAY( I, J KJ=1Q,18J ,1 = 1, 18 I 

EQMT0095 


WPI TC16,5 > 

EQMT0Q96 


WR ITE( 6,A52» 

ECMT0u97 


WRITE (6,6) ( I BPY( I,J >,J=1,9I,1 = 1, 18) 

EQMT0098 


WRITE(6,6M (BBYIl, J) , J = 10 , 1 8 ) , 1 = 1 , 18 ) 

EQMT0099 


WR 1TE(6,5 ) 

EQMTOIOO 


WRITE (6,453) 

EOMTOlOl 


WRITE(6,6) (( CCY( I , J ) ,J = 1,9) ,1=1 ,18) 

EQ’^Tta02 


WRIT 6(6, 6) ( (CCY( I, J ),J=1G,10),I=1,18) 

EOMTOU3 


WPITt(6,5 ) 

EQMT0104 


WRITe(t,454) 

E GMT 01. >5 


WRITE(6,7M( CDY( I, J ), J=i,6) , 1 = 1, 18) 

EGMT0106 

5 

FORMAT(lHl) 

EOMTolU? 

6 

FORMAT ( ////IX, 18( /IX, 9(612. 5, IX))) 

EOMTiaoa 
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7 FCPMAT (////lX,ia< / lX,6(E12,5,lxm 
<♦51 FDRMA7(2GXt'A MATRIX = * ) 

452 FUPMAT(//20X, *B MATRIX=*) 

453 F0PMAT(//2OX, 'C MATRIX** J 

454 FORMAK //20X, ■ D MATRIX**) 

RETURN 

ICO CCNTINUE 

CO 201 1=1,6 
'DC 201 J = 7,9 
AAY( I, J')=AAY(I,J+6) 
fRY( I, J ) = BBY( I, J+6) 

CCY( I, J)*CCY(I,J+6 I 
AAYt J,I )-AAY( J+6,I ) 
fiPY IJ, I )*PBY(J+6, I ) 

2C I CC YU, I )=GCY( J46, I ) 

DD 202 1 = 7, <3 
DC 202 J=l,9 
A/iY(T,J)=AAY(I+6,J+6) 

BDY( I ,J)=BBYl I+6,J + 6) 

202 CGY( I, J )=GCY( J+6,J>6) 

00 204 1=7,9 
DC 204 J=l, 6 

2j4 CGY( I,J ) = CDY( I+6,J ) 

IF ( IFLT.NE.O) GO TO 205 
UR ITEU,451 > 

URITE (6 ,850) 1 1 AAY (I,J),J = l,9),I = l,9) 
WRITE) 6, 452 I 

WP IT£ (6 ,850 ) ( < RBY (I,J),J=1,91,I = 1,9) 
WRITEI6,453 ) 

WRITE (6, 6501 ( CCCY( I, J ) , J=l,9) ,1=1,9) 
WPITE(6,454) 

V.PITE(6,S50)( (ODY( 1 , J ) , J = 1 , 6 ) , 1 = 1 , 9 ) 

8 50 FORMAT (/// IX, 9( /IX, 9(c 1,2.5, IX) ) ) 

•gSu FDRMAT(///1X,9(/1X,6{E12.5, IX) ) ) 

205 CGNTINUe 
RETURN 


E&MTG1U9 
EOMTOllc. 
EOMTOlll 
E0MTaii2 
FQMT0113 
E0MT0114 
E0MTIU15 
EQMT0116 
EQMT0117 
E0MT0L18 
EQMT0119 
EQMT0120 
EQMTU121 
EQMT0122 
E0MT0123 
EQMTt 124 
EQMT0125 
EQMT0126 
E0MTO127 
EOMT0120 
E0MTO129 
E0MT0130 
E0MTUL3L 
ECMTD132 
F0MT0133 
E0MT0134 
EQMT0135 
E0HT0136 
EOMT Jl37 
EQMT0138 
E0MT0139 
EQMT014O 
EOMT0141 
EQMT0142 
ECMTG143 
E0MT0144 



END 


EQMT0145 



o u 


StBPaUTINt AUTO (I OOF) 

IN AUTOPOTION FLIGHT ANGTH6R DEGRtE OF FREEDOM IS ADDED 

GCMMON /PARMT/ I TYPE ,IFLT 
CCMMON/APATI C/ TT { 6 , 5 ) »C { 6 ,6 ) ,Tt5,6l 

GOMMON /AREA6/NaBU),PQH ,CHQD»AIB .CKtHMAST ,ALCCX ♦ANG.HP 
C0MH0N/AREA5/AH(4,4) ,AHI (4) , AHII (All AHRZi4>» AHN«(^»f AWGC4I ,AV0C4) 
a,AWl(4) ,AV1( 4) ,0AH(4,4) , C AWC (4 1 1 G AVI (4 1 1 CAM (I H4 » , CAHM I ( 4 » 

S ,CAHV(4),GAHIV(AI 

CCMM0N/D3F18/AAy(19, 19),BDY( l9il9)tCCY( 19» 19 1 , OOY( 19, 6 1 
COMMON ACOUPL/ AKPG (4 ) , AKPD (4 ) 

C C MM ON / A E R07 A F TO P 1 1 A F T 1 P 0 , A F T 1 P 2 , A F T 2 P 1 , A F Z 0 P 0 , AF Z 1 P 1 , A F Z 2 P 0 1 
aAFZ2P2,AHni(4),AHiV(4) ,AHV(4) , AHVI ( 4 ) , AHV 1 1 <4 ) 
a I AFT3P0,AFT3P1 |AF,Z3P0,AFZ3PI 

NE=4 
NVi=6 
NR=19 

■H DU 11 1 = 1, NB 

o AAY( 3*I-2,NR)=AVl( I ) 

AAYtNR, 3*I-2)=AVl( I I’^ANC 
eBY(3vi-2,NR)=AHNP{I ) 
eaY(NR, 3^ 1-2 )=AHIV( I ) 

11 CONTINUE 

OG 12 I=1,NW 

BBY (NR, 3 + NB+I ) = AFT2P 14T( 2,U 
eBY{3-^NR4l,NR» = AFZlPl*T (2,1) 

12 CONTINUE 

AAY(NR, NR )= AI E + ANG 
fiEY(NP ,NR) =AFT1P2 
rCY(NR,3 J=-AFT2P1 
DDY(NK,4 )=-AFT3Pl 
IF(ITYPE«EO,G» GO TO 13 
DO 14 I=l,NB 
AAY( 3-* I -2 ,NR ) = GAV1( I ) 

AAYINR, 3»I-2)=0AV1 ( II*ANC 


AUTO >00 L 
AUTn>;u02 
Aurooooi 
AUTOfO 14 
AUTOOuOB 
AUT0'.)Uu6 
AUTOuJjT 
AUTO 0008 
AUTD0009 
AUTOOulO 
AUTOOOli 
ALJT0 ‘J.j 12 
AUT0G013 
AUT00C14 
AUT00U15 
AUT0G016 
AUTOUOr/ 
AUTODOIB 
AUT00019 
AUT0 >'j 20 
AUTOOu21 
AUT00022 
AUTQv .*23 
AUT00024 
AUTO .JO 2 5 
AUT00026 
AUT00027 
AUTO >0 28 
AUTGD029 
AUTOOU30 
AUT00031 
AUT00032 
AUT00033 
AUT00034 
AUT00035 
AUTa,J036 




-D r- 


1 ^ 

13 



R 

L.K) 


15 


eBY(NR,3=U-2)=UAHlV( I ) 

CCY (NR,3¥l-2)=AKPQI I JYAFT3P1 

CONTINUE 

CONTINUE 

IF( IDGF.EC.9) GO TO 100 
WRITE(t,A51 » 

kNRITE(6»6) ( ( AAY( I , J h J= 1 , 9 ) . I = 1 1 1 9) 

I TE ( 6 , 8 M { A AY ( I , J » f J= 10 , 193 » 1 = 1 f 1 9 ) 
WRITE! 6, 5 1 
WRITE(6,452 > 

WRITE<6,6M t BBYtl, J1 ,J = 1,9) ,1=1 ,19 » 
WRIT cl 6, am BPYt I, J ) , J= 10, 19) ,1 = 1,191 
WRI TE( fa,5 ) 

IvR ITE( 6,A53) 

RRITE(6,6H! CCY ( I , J ) , J= 1,9 I , I = 1 , 19) 
WR1TE(6,8M(CCY( I,J) ,J=10,19) ,1=1,19) 
WR IT6( 6,5 ) 

WRITE(6,A54) 

V-RITE! 6,7) < (DDYU, J) ,J=1,6) ,1 = 1,19) 
FORMAT ( IHl ) 

FrPMflT(////lX,19(VlX,9(ei2.5,lX) ) ) 
F0RHAT?////1X,19( /1X,6( E 12,5,1X) ) ) 

F CRM AT (////IX, 19(7 IX, 10 (E12. 5, IX) ) ) 

RETURN 

CGNTINUe 

DC 15 1=1,6 

AAY(i,lj)=AAY(l,l9) 

FEY ( I , 10) = BBY( I, 10) 

CCY (I ,1C)=CCY( 1,19) 

AAY( lu, I ) = AAY( 19,1 ) 

PEY( lu, I ) = BBY(19, I ) 

CCY( 1C, I >=GCY( 19,1 ) 

CCY( Ui, I ) = ODY( 19, I ) 

CCNTINLIF. 

DO 16 1=1,3 

A AY ( 1+6, U?) = AAY( 1 + 12,19) 


AUTO Kj 37 
AUT00038 
AUT0JU39 
AUT0004J 
AUTC >0-!,l 
AUTO Vj^2 
AUTOJ043 
AUT00094 
AUTQU095 
AUT0C096 
AUTOOC'97 
AUTCOUAa 
AUTO )0A9 
AUTOOvtSu 
AUTQ0051 
AUTO Ju52 
AUT0'Ju53 
AUTG005-V 
AUTO.)v/5 5 
AUT00056 
AurooosT 
AUTO 305 8 
AUT00059 
AUT00(i60 
AUTG0O61 
AUT00062 
AUT0J063 
AUT Q0u64 
AUTOOU65 
AUTQuv)66 
AUTC0067 
AUT0CC63 
AUTCC'D69 
AUTOOGTO 
AUTO ,lj71 
AUTDJ072 
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eeY( 1+6, lul=RBY( 1+12, 19) 

AUruOO/3 


CCY(I+6,1C)=CCY(I+12,19) 

AUTO.^‘74 


AAY{ i:i, I + 6) = 4AY(19, 1 + 12 ) 

AUTu3075 


8BY( lu, I+6)=6RY119, 1+12 » 

AUTGJOTto 


CGY( liM 1*6 )-CC Y( 19,1+12) 

AUTOjJ77 

16 

CCNTHMUE 

AUTOOC78 


4AY(10,1Q)=AAY(19,19) 

AUT00J79 


P6Y( Ij, 10 )=BBY( 19,19) 

AUTO JO 3 U 


C.CY{lj,10)=CCYH9,19) 

AUT00081 


WRITE(6,451) 

AUTOil'18 2 


ViRlTE(6,85t)) {(AAYt I , J ) , J = 1 , Itl ) , I = 1 , 10) 

AUT00JR3 


WPI TE(6,452 ) 

AUT0Uti84 


WRITE( 6, 650) n BBY( I, J), 0=1, 10) ,1=1,10) 

AUTO )085 


WRITE(6,453) 

AUT000fl6 


WRITE(6,e50) ((CCY(I,J) , 0 = 1 , lU ) , ! = 1 , 10 1 

AUTG0087 


WR ITE(6,454) 

AUTDUO80 


kRITE(6,550) ((DDYl I , J ) , 0= 1 , 6 ) , I = 1 , 10 ) 

AUTOOC89 

A5l 

FORMATl 20)(, • A MATRIX=*) 

AU TOGO 9 3 

452 

FORMAT (//20X, 'B MATRIX=') 

AIJT0J091 

453 

F0RMAT(//20X,'C MATRIX^') 

AUT00C92 

454 

FORMAT( //20X, *0 MATPIX=M 

AUTO )093 

85o 

FORMAT (7//lX,10( /IX, i:(E 12, 5,1 Xn ) 

AUT00C94 

950 

FCRMAT(///1X,10( /1X,6(E12,5,1X) > ) 

AUTO J095 


RETURM 

AUTC0096 


END 

AUT00C97 
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REPRODUCIBILITY OF THE ORIGINAL PAGE I POOR, 


SUt<'-Ol'T INP GlSTCC(CliLST,Di:VtL»n!)^) r;^)5TjOOl 

C G'JSTJUO? 

L T,i C.tFINE GLS7 RLAtt FITCH CCNTFCL C■.^^ FC^Ji:^^T 3 CUST-.Uj3 

C G'JST?!i:J4 

CIMhNSICN CCLS1 It ) ,ECY { ly GUSTuv.05 

u.' 1 i = i,L gust:-: >6 

1 '.'DM I ) = ■:) .U GMSTuOj? 

Oj ?. I = 1,L G'JSTjCja 

U" 2 J=l»6 GUST(.-u09 

2 nnzm = ri:v( T,.j i^cctST u MCL/ ( II gust^.oiu 

ki’Tl.RM GUSTlOll 

H^'D G'JST0012 
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LIT P4L FR«RtS(L , £ a A t H G F » C CC , O'JO » IFLT,IDCFI 
C 

C ri CALCLtaiE TF£ F^t(;UE^CV RESPCNSh 

C 

■I I y ' RS I :N a £ M I S f l«l> , F ♦ 1 S J ♦ CC C ( H ) , ocn ( 1 9 » 

0 ''li-iu PREC ISICN Ff E'U tCPM I9t 19 ) ,DPR( 19,19) ,DPC< 19 , 1 ) , ;JP ~) ( 1 9 ) 

^ y -lo CLPM19,19),C.Cf'Ell9), OCVPLX 

Wil l Tl- ( 6 , U t ; ) 

U uJ F..RrAT I///L'jX,^c( U-'-),//2wX, *FkF JUeWCY RESPONSE ',// IIX ,Au( LH-^) 
/////4X,'"FRtKlPNCY/CFEGA--' ) 

IF( 1ClF.E(;.IR) GC TG KOI 
V’RITFCE.IOC^) 

IvL? F ik.^AK // lOX, 'tli: • ,T?2 , ‘QIC ,T34, 'fas’ ,T4o,'Q2C* ,T-33,'«2C* ,T7u, 
•C2S» ,T82, 'kiilNG l», T9A,*'wIHG 2 • , T 106 , ' w I 3' i 
G.‘. T') UG3 
lok.1 v’RlTE(t,lCC4) 

luu4 P : PYAT 1//1CX, *Cir‘ ,T22t'iaC ,T34, 'CIS* ,r46, '(J2C' ,Toci, ’OPC ,T7u, 
•025* ,Tfi2,'Q3C ,19A, '<J3C, U:6,'C3S* // L JX , • QhO* ,T22 , 
t *C4C* ,T34, 'Q4S*,T46, 'mNG I* ,T5P,'^ING 2', T7v,*wING 3', 

.1) T82,'WING A', T94,'RING 5 ' , T 106 , • W ING 6») 

lOU'’ rONTINUF 

IF MFl T.tG.U) GC TC IC07 
WR I TE 16, ICC 9) 

IJGb FORMAT {//ItX, *C(AU R)/DT') 

ICC? CINTINLE 

DO IOC I=l,L 
Dr 18U J=l,L 
DPA( I , J)=AflA( ! ,J ) 

C^'i] (I ,J) = F3P| I,J J 
UPC ( I , J) = CCC( I , J ) 

19u C":rriNUE 

n.' 181 I=1,L 

[iponi =cr.c(i) 
ru CiNtinuf 

1 

F E C= i, • C 0 C 


F r' 0 K U J 1 

'■pOR'cr'iZ 
FPDPrO J3 
rPDR., jJA 
Fk ORC'j .'9 
r K Q R _ u C 6 
FROR „l j7 
FHOR.j j JP 
FRQPuO'ja 
FROPDUlu 
FRORoOll 
FRQRC012 
FROROv. 13 
FRORoulA 
FR0RCD15 
FRQROulo 
FR0R0G17 
FR0R0019 
FRO ROOT 9 
FROR002C 
FROR0021 
EP0R0022 
FK0RC023 
FR0Ru'J2A 
FR0R0025 
FR0RQJ26 
FROP0027 
FR0PO02B 
FR0R0029 
FRQRJU3C 
FROR003I 
FRDRu032 
r-.0RUL33 
>^RQR0034 
PRQPul.39 
FR0RC03O 
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211 

r- •■i-r:=HPhc:*L .oicc 



•■ROR J37 


1^=1 K+l 



FROR,,,,i33 


IV TO fill 



TKORjuBO 

311 

H^KC = F « .02Ci. 



FR0RCU4G 


i K = I K + 1 



FOORCO^l 


O'. TJ 511 



FRORoO^Z 

61 1 

h ", f- w = F R * t • G ? IM- 



FRORt ^.43 


1K = IK+1 



FRQR',u4‘t 


Gf T2 511 



FR 'IRC 04 5 

711 

Fs-G=F«£CtC. lie 



FRgR.i0 46 


IK = IK»1 



FR0RU047 


Vj t: 511 



FK0Rt04a 

tm 

F>v:^r’=F'FFQ + t.5rO 



FRQRju4y 


I K = 1K+1 



FR0RU050 


GO TO 511 



FKQRLM51 

5 11 

nn iQc i=i,L 



FROR0O52 


Oi' loo .i^lrL 



PR(3RC'753 

l.-u- 

CG'^/sn f J ) = CCMPLX (CPC 1 [ , J)-FRE0-"-2'= DPA( 1 1 J ) » FRF:Q=^^OPh ( 1 » Jl) 

FPOR0054 


Ol 301 VI t L 



FROR0055 

1.. 1 

c:mc ( I )=dcr.plx( 

GPC( I ) .CIO) 

FRQR0056 


( ML C:AE( MCC(“A» 

CCPC,L ,FRFG, IDQF, ITLT ) 

FR0P0O57 


IF( IK.Ll. ICI GC 

1C 

211 

FR0R0O58 


IF( IK.LT.25 1 GC 

TC 

3 1 1 

rRQRD050 


IF(IK.LT.37» GC 

TC 

6 ll 

frqroo6u 


1F(1K.LT.57) GC 

I'-’ 

7 1 1 

FR0ROO61 


lF(IK.LT.7il GC. 

10 

C 1 1 

fRORl.06? 


poTORr. 





r.'T) 



FRQR0064 


ttk 


,'U n\t t,*iFLl li5,Vt^»Fl^b(;, ICUF, IFLT J 
C 

C TbF I'ALS^-JbhMN WtCUCTKK 

C 

C.-'-IPLF >' It / ( 

nctiBLE pRfccisirN FPec: ,rcAFS 
QIHLNf, ^L^ AH MIS) 

CCXMCN/rPMAG/ ., F W ^ ( 4 > i FF' C ( 4 ) , F K W ( t I 

DJ 10 I=lfM 
L= [ + l 

on IC J=LtN 

IF ( CCA(iS( A{ I, J n .FC.C -ODQ )bJ in io 
DO £ K=L,N 

AIJ ,K r=AU,K)-A( f,K)vA(J,n/A(I ,H 

8 r^.AlTlNUF 

V( vU^V( J)-Y( I )*fl ,1)7 A (I tI» 
lo Cl '^JTIMUF 

X( N > = > (N) /A (M ,N) 

Ou 23 1=1 

K = N'-I 
L = K + 1 

DH 2u J=L,N 

?0 Y(K) = Yl'K)-y (J)M (K,J) 

30 X(K) = YlK)/A(K,l<) 

no 40 l=lrN 

4s A'^X( I )=CCA£S(X( I ) ) 

IF ( IFHMAG.tC. I ) CC 1C 5s 
IfnilFF .cc.s) GL Tf; 51 
LT = 4 
LI T=6 



GO TO 

54 

51 

LT = 2 



LTT=3 


54 

CO 52 

1 = 1, LT 


DC. 52 

J = L,3 


i.ArL' : 
C.AH -I ■,..)? 
■'1 A r L 

■,j4 l. L C- J 04 
GAcL 

'lAHLuu'Ou 

FAFLJOO? 

, IFri*^AG OAFLCjO& 

C.AFLC009 
GAbLoOlO 
GAFLOOll 
GAEL0012 
GAEL0013 
GAEU 014 
GAELOOiS 
GAELGU16 
GAFLrCl? 
GAELGOle 
(,AELC jl9 
GAEL. .020 
GAFLuOZl 
GAEL <f.'22 
GAEL0023 
GAFL0 u24 
GAFL( G25 
GA“L\-0 26 
(;a‘^log27 

GAi^L''02B 
oAFL ju29 
GA EL'O J 10 
GAELtoSl 
GAFL1032 
GAFL'j033 
r.AEL0o34 
GAEL''\0 5 
(.AELO016 



52 

ABX{3*U-1» + JJ=ABX(3*( I-1)+J>*FRB(I ) 

GAEL0037 


DG 55 1=1, LT 

GAEL0038 

55 

ABXC3*(r-ll+U=ABX(3 + n-U*l)*FRB0n l/FRBI I ) 

GAEI.0C39 


DO 53 1=1, LTT 

GAELOOAJ 

53 

ABXm-3*LT l=ABX( 1+3*LT MFRHf I » 

GAELJOAl 

50 

CONTINUE 

GAEL0C42 


IF (IFLT.EQ.O) GO TO 56 

GAEL0043 


ABX(NI=FREQ*ABXCN» 

GAEL 0044 

56 

GCNTiNUE 

GAEL 004 5 


WRITE(6, luO) FREQ 

GAELOCAb 

lOG 

FQRMAT(//3X,' — ' ,F 6.2,*— «) 

GAEL 0047 


rtRITE(e,2C0l (AbX( n ,1=1 ,N) 

GAEL 1048 

200 

FORMAT (/{fix, 9t £10.3, 2X J/ J) 

GAEL0049 


RETURN 

CAELJ050 


END 

GAEL J051 
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SUPROLITTWP F IRE=M(M, AAfi ,PHB,CFr ,000, lO^f » 

r 

C ROUTINF to fGPM an FJGFKVAIUE PROPI.FM and to CAU. EIPAfK SUPRnilTIME 

r 

niMf^MSIOM AA AHOt IPt f RPR ( IRylF > , r.rrUR, IF ) ,nDni 
PI'MFNSIOW AOfeU ,L{].F) ,M(191 ♦ AI NV ( 1 9, 19 ) 

DIMENSION AAMUF, 19 1 , PBN ( 19 , 1 9) ♦CCN( I9tl9| fD0Ntl9,6) 

RFAL*B AFir,{3fl,3P),VfP(3flJ,wn38),ZP<38,38J 
PFAL*P SCALE(381 
INTEGER INTI 38) 

DIMENSION PTGI25), ARMOO C 2‘5f 25 ) ♦DAMPI38) 

COMPLEX AM0DI25»25) ,PTGCCM(25) 

COMMHM^FRMAGy FP B ( 4 I , FP RDl *. ? , FPW ( 6 ) ,IFPMAG 

IDE PNG- 0 

WRITF(6,IE3) 

DO 30G3 T=1,N 
DO 3004 J=ltN 
AAN(UJ) = r,0 
RBM(NJ)=0. 0 

3004 CCM(!»J)=0,0 
PC 300i5 K=1,A 

3005 DPMI I, K ) -0.0 
3003 CONTINUE 

U-D 

DO rooo j-i,N 
DO non 1=1, N 
LI =1.1+1 

1000 A(LL) = AA»n , J) 

CALL MINVI A,M,D,L,M) 

U-0 

00 2000 J=1,N 
DO 2000 I=1,N 
Ll=LL+l 

20G0 6TNV(T» J)=AILL) 

DO 300G 1=1, N 
DO 3001 J~1,N 


c Toc>>'>ni 
E I 0=0002 
EIGED003 
EIGE00D4 
EIGF0005 
ETGPOODD 
ETGE0007 
ETG'=0008 
E I GE9‘'r.9 
EIGEOOlO 
ETGFOOll 
EIGE0D12 
FIGE0013 
FIGEDD14 
F IGF DO 15 
EIGE0D16 
FIGFnn 
F1GF0018 
FTC.FCni 9 
FI GFnO 20 
EIGP 0021 
FIGF >R22 
ETG=F323 
EIG*=D0?4 
FTGFf'’'25 
EIGC0026 
FTGFD027 
EIGFD02P 

FTOcgo-jq 

EIGE^D 30 

EIGF0031 . 

EIGF0032 

FTGF''D33 

ETG^0034 

FIGF0035 

PTGP0036 




no 3001 K=1,N 

EIGF0037 


A AN (! , J ) = A! MV( I , K ) * A A A 1 K , J ) *A A'N( T , J » 

5TGFn03B 


PRN( I, J» = AINVCI»K)*RBP(K,J)4-PRMU,J) 

EIGFO’^39 

30C1 

rCN(T , J MAIMV( TtK)*CCC{KrJ»+CCN(l,J) 

F IGF 004 3 


no 300? J=l»6 

E IGF 0641 


DO 3002 K=ltN ' 

EtGFn04? 

3002 

DON( ItJ| = AINV( ItK 1*nOD(Kt J)+DONt I,J ) 

FTGE0043 

3000 

CONTTMUF 

F TGPnnAA 

6000 

= ' ■ 

FJGF0045 


no 300 !-l,N 

r!GF0046 


no 300 J=1,N 

cxGFnri47 


AETRU t JM-5PNI T. J 1 

F IGF 00^ a 


AFTQI I , J + N) =-Cf NU t J ) 

ETGP0040 


no 301 I=ltM 

El GF no 50 


nr 301 J=U^t2 

P1GF0051 

36 1 

A-TG( M-N, J')=O.OnO 

FTGF6052 


rn 3T? T=i,N 

PTGF0053 

302 

AFiGn + \|,i ) = i, ono 

EIGF0054 


CAI 1 ET6ArK(38,N?t AFIOjUBt , 7P, , SCALF » 1 NT ) 

FIGF?''55 


j F (TFppnR. cn.n ) no tp 152 

FIGF0056 


WRJT=(fe» 1 60HPPRCR 

FTGFn357 

150 

cnoM4T(l5X,’ TFRROR = * tI5) 

‘^IGF'1058 

13? 

r n.NT i ^|l IE 

FT GFnnBQ 


T F < T ncRIJG.FQ.E) r.n th 61 

= IGFnr>66 


WR ! T - ( 6 , 67 1 ( WR ( I) » W ! f I } ? 1 = 1 »N 2 » 

FIG'=0061 

67 

fosm at(Viox »0i5. T»?x,r)i5, 7) 

E!GE0f)62 


M3=M/3 

FIGFnr»63 


nr 400 u=i»N3 

RTGF006<f 


T J = 6-^( IL-1 ) + l 

F!GFn065 


KL=6*( IL-1 )+6 

FTGFr066 

400 

WPI TEl 6»251) ( t Zr n , J) , J=T J,KU ♦T = 1,N2) 

EIGFPP67 

251. 

format ( ///IX T (/IX, I 2ni5.7,4X,?ni5.7,4X,2P15.7) \ 1 

EIGC006P 


Tr(3'^N3.F0. NM pn m 61 

FTGFn069 


K = 2+(N-3*M3 > 

=1 gfooto 


I J:=KL+1 

FIGF0C71 


KL=KL+K 

PlGEPn?? 



150 



WR T-r = ( 6 t 7 1) U ZP ( I „ J ) , J= IJ , KU , I = 1 1 N2 ! 


eiGPA073 

751 

pQPMAT{///1X, (/IX,(2D15,7))) 


'^10 = 0074 

6 1 

rn^TTf'iu'^ 


cigFFW'-75 


nn 14A T= 1 ,MP 


FTGF0076 


XX=SNGi ? V|R n )*A2+WT { n*4? ) 


EIGF0077 


i xx.eo.o.o ) O-P TP 141 


FTGFFCTR 


DAMP (I )--CNGl {WRIT ) )/SORT(XX) 


FTGF0079 


GO TO 140 


FTGFC'^flP 

151 

rAMP( T )= 0.0 

• 

F1GF0091 

140 

rCNTlMIIF 


F!G‘= 00 P 2 


N 1 = 


‘^IGF^08 3 


1 ' K = o 


FrGF0084 


l.KK = 0 


FTGF0085 


NTQT=0 


FIGF 1 OO 86 


1 = 1 


FIGF0087 

64 

rONTTNOF 


FICFongB 


TFn,GE.N2 + l) GO TO 63 


FTGEOOeO 


^;TDT=^!TOT + l 


FTGECnGO 


K=MTDT 


PTGF''A<n 


!F {WT {n.Fo.o.poa 1 on to 65 


E IGF 005 2 


7 NT ( I 1 =K 


‘=!GFO0«?3 


INT( T + U=K 


FTGFOrPA 


LK = I KK+l 


F IGF 0095 


I.XK. = t K+1 


FIGF00g6 


IFl TOEWG.FO.O) GO TO 6E 


FTGE0097 


HPTTFf6,65) I ,>.K,I.KK,K 


FIGF009R 

65 

FORMAT ( IX, 41 5) 


^ IGF'"' '^99 

68 

rOMT INUF 


FTGEOlOO 


no 50 J-N1,M? 


E IGF 0101 


TF( T0F8IJG.F0.'’. 1 GO TO’ 71 

t 

El 0^0102 


WPITFI 6,72 1 ZP( J,LK>, ZP( J,IKK ) 


FIGE0103 

7? 

FrRMAT(lX,2D15 71 


F1G‘=P - 104 

71 

rOT'T TNUF 


E!GF0ir5 


A MHO ( K, J-Nl + 1 MTMiPLX < SNGIl ( ZP < J ,I.K M , SNGL ( ZPC J, 1 KK 1 ) ) 


PTGFni06 

50 

COf^TIMUE 


ETGFOirT 


T = T+? 


ETGF0108 



151 



GC TH 64 

FIGFOIOP 

ft5 

CG^.7TNH'= 

r IGF ■*113 


INK T ) = K 

FTGFnill 


) K = I.'<K+ 1 

r’GFOU? 


LKK=LK 

FTGF.3113 


IF( TO'PRIIG.FO.O) GO TO 7 3 

EIGF0114 


WRITE( 6 , 6 iS) T ,1 K,».KK,K 

FTGFni 15 

7^ 

CCNT TT'UE 

F! GEO 116 


no 66 J=MltN? 

FIGEOUT 


TF( inFR'UG.Fn.OV GO TO 74 

PTGrnilR 


WRTTE( 6,7? 1ZP? .J,LK )»7P( J tl.KK) 

FTGFOliq 

74 

FONT TNI IF 

F!GE01?0 


4N00 <Kt t-^'l + U=CNPLX( 3NGt. (ZP( J »LK ) ) ,0 .Q ) 

EIGF'^121 

bb 

rONTlMiiF 

ftgfoi?? 


1 = 1 + 1 

FTGEni23 


no TO 64 

FTGEni?4 


r''NTlMUF 

F1GT0105 


TP (IFRMtG. £0. n GO TO 130 

FT GEO 136 


TF( inOF.EO.«) GO TO 131 

FIGF 01 ?7 


LT=4 

FTGF013R 


LTT =6 

ETf.F''l?q 


nr TO 134 

‘^ir,FOl30 

131 

II 

FTGFCI?! 


LTT = 3 

FTGF0132 

1?4 

CONT INIIF 

FIGF0133 


nr 136 TJ=1,NT0T 

FTGF3134 


nr 13? I = 1»LT 

EIGF3135 


no 13?J=l,3 

FTGF0136 

1? 7 

/'MQDI ! Jt 3^n-U+J » = A^inon J,3*(T-1I+1!^FRR( T ) 

FTGFni37 


rn 1351=1, LT 

ETGE0138 

13“^ 

Awnoi t j, n-l ) + !)= AMOon J,3*u-l l + n*FRPD< n/FRBH » 

FIGF013O 


no 133I = 1,I.TT 

FIGFni40 

133 

AMFinf fj, r + 3>‘-LT) = ANG0MJ,!+33LT|TFRW( H 

FTGFOl^l 

136, 

rrvTTMiiF 

FIGFG142 

130 

rONT TM1IF 

FIGFG143 


GO 51 T=l,NTnT 

FJGFoiiVA 



152 


on 51 J= 1 ,N 

51 fipMOn^C I , 4R5( AMODUt JI1 

no ^2 T=l,NTOT 
BTr.( 1 ) = Q,0 
no 5R J=1,M 

TF(ABMQn( I,J5 - FUnnit 5Rt53»54 
54 BTGU ) = ABW-)P{ I , J } 

8TGrnM{ t 1 = AMClon, J ) 

5 3 COMTIN'U'F 
5? nONTlwiF 

nr 60 T=l,NTaT 
PC 60 -l = l,W 

APMOPl I ,J) = 4PM0n(T,J )ARIG( 1 > 

A MOfH T , J ) = A MOP (1 , J ) / R I G C QM < n 
60 CONTTNU'F 

153 F0RMAT(///15X,20(1H^ J//20X, •FIGENVALtJES'.//l5X, 20< IH* ! , 

F, REAL PART +*' » 3X,'*+ IMAGINARY PART **♦» 

& ,10X,»** DAMPING PATIO **•/! 

WPIT^ (6,151 H !MT( n , WRIT ),HI U > ,DAMPt I) , 1 = 1, N2) 

151 FOPMATI/ 9X,»NQ.',I2,5X,D15.T,5X,P15.7,15X,F15.7I 
W»TTE(6,59> 

59 FORMAT! IHI ,///5X, 2 0 ( IH+ » , // lOX , » E I GFNV ECTORS • , / /5X, 

TP=0 

no 55 1 = 1,NTGT 
IP=IP+1 

WPTTF(6,1541I ,V(RnP),WT(IPI 

164 F0'PMAT(///2X,*— GnRRFSFONDTNG TO NO. * , T 2, 1 X , ' E IGENVALUE — 

S 5X, M ',D10.3, • ) ♦IMAG{ • ,010. 3, • ) • ♦ 

f. ///RX,*r^: ARSOLUTF value **',20X,**» real PART **',2X« 

F, •'J'i imaginary PART ♦**,//! 

TF(.( IP + n .GT.N2) GO TO 752 

^F(T^fT^TP).FO.I^^■(IP + l) 1 TP=TP + 1 

7 52 CQNTU4UE 

no 56 ^=1,^' 

WRITF(6,5T)ARM'10f T ,J», AMrD(T,J> 

57 FQRMiTI 10X,F15.7r22X,El5.7,3X,F15.7) 


FTGFr>iA5 
FIGFri46 
ETGF0147 
c Tr,pr> 14 P 
FI Grp 149 
F’Grni5n 
FTGFTISI 
FTGF015? 

Fir,c»i5 3 

FIGFni54 
F I r-rn 15 5 
E»GFni56 
El GF0157 
EIGF015R 
ElGEOisq 
FI GEO 160 
ETGF3161 
EIGFP162 
E’Gr 11163 
E!GFni64 
EIGF0165 
FTGF(.n66 
ETGrn]67 
F1GF016R 
ET GEO 169 
FTGPniTr 
riG^nm 
FTGF*' 172 
FTGr0173 
FIGF0174 
FTGF0175 
EIGF0176 
FIGFP17 7 
F7Gr'>175 

F -050179 
EIGEnipo 




CGNTINMP 

VIRTTE(6,5f^) 

F0RMAT(///1XI 

rONTTK'U'E 

RETURN 

FNH 


FIGFOIRI 
FIGE0192 
E1GEG1R3 
FIGcoiR't 
F ir,Fni85 
FTG?=ni36 


SUBPOUTiNE EiP^CKt N'M.» N, A, WR , WI * Z , I ERR, SC ALE, I NT ) ElPAuOH 

EIPAD002 

AN EIGENSYSTEM PRCBLEN SOLVER FOR THE GENERAL MATRIX EIPAOOJ3 

EIP AO'){)4 

PF.flL’^^8 A(NM,N»,E (NM,,N}, WR(NI, WI(N» ,SCALE(NJ EIPAOOG5 

INTEGER INTIM) EIPAO0J6 

C AL L BAl A NC ( NM, N , A, LOW, I GH , SCALE I ' E1PAQ037 

CALL ELMHES lKMrN,LDW, IGW, A,INT J EIPAOOOR 

CALL ELTRAN(NM,N,LOW, {GH,A,INT,2) BIPAC33q 

CALL HQR2!NM,N,LCW,ICH,A,WR,W1,Z,IEKR» EIPAOOlO 

CALL BArP,AK(NM,N,LQW, IGH,SCALE,N,Z) EIPAGGU 

RETURN EIPA0012 

EMO EIPA0013 



c 

r 

e 

c 



SUBROUTINE E AL ANC I NM, N ♦ /S » L nW , IGH, SCALE) 

INTEGER I , J.KtL ,M tNvJ J»NM, IGH.LOWt lEXC 
REAL*R A (NMtN ) , SCALE (N ) 

REAL*e C,F,G,R,StB2tR^DlX 
REAL+e DABS 
LOGICAL NQCONV 

THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE DAlANCEt 
NUN. PATH. 13, 2S3-3CAI IR6S) EY PARLEIT AND REINSCH. 

HANCECGK FOR AUTO. COMP., VCL . I I-L INF. AR ALGEBRA, 3 15-326 ( IS 7 U . 

THIS SUBROUTINE BALANCES A REAL MATRIX AND ISOLATES 
eigenvalues whenever POSSIBLE. 

ON INPUT: 


NM MUST BF SET TO THE ROW DIMENSION OF TWO-CI MENS IDMAL 
APRAV parameters as CFCLARED IN IHE CAtLiNG PROGRAM 
CIMFNSIQN statement; 

N IS THE CRFER CF THE MATRIX; 

A CONTAINS THF INPUT MATRIX TO BE OALANCEC. 

CK CUT PUT: 

A CONTAINS THE BALANCFi: MATRIX; 

LCH ANG IGH ARE TWC INTEGERS SUCH THAT AII,JJ 
IS ECUAL TC ZERC IF 
(1) I IS GREATER THAN J ANC 
I?) J = 1 ,... ,LCV-l CP I=IGH+l, .. .,N ; 


6S21CCOI 

6S21CG02 

6S21CC03 

6S21CCOA 

6S21CC0*3 

6S21CC06 

6S21CC07 

feS2lCCOR 

6S21000S 

6S21C010 

6S21C011 

69210012 

69210013 

6S21CCIA 

69210019 

69210016 

69210C17 

6921C018 

69210019 

6921C020 

69210021 

6S2ICC22 

69210023 

6S21CC2A 

692L0C25 

6921C026 

6921CC27 

6921C02B 

69210029 

69210C30 

6921C031 

6921CC3? 

6921CC33 

6921CC3A 

69210C35 

69210C36 



i^ooooon»^r>rtrtooooo(nr^nf^i^or)or)Oor^ 


C 


c 


SGALE CCKTAINS INfCPMATIQN CETFRMMNG THE 
PeRMTATICNS ANC SCALING FACTCRS USEC. 

SUFPCSE TFAT TFE PRINCIPAL StBHATRiX IN ROV^S LCl* THPCLGH IGH 
HAS BEEN EALAACEC, THAT PU) CENGTES THE INEEX INTERCHANGEC 
WITH J DURING THE PEPPITATICN STEP* ANC THAT THE ELEMENTS 
OF THE EIA6QNAL WATRIX LSFC ARE CENCTEO BY C(I,J). THEN 
SCA1«:(J) = P(J), FOR J = 1,..., LOW-1 
= i = LCW,...« IGH 

= PIJI J = IGH*1»...,N. 

THE CRCFP IN WHICH THE INTERCHANGES ARE PACE I S N TG IGH+U 
THEN 1 TC LCW-1. 

NOTE THAT 1 IS RETLRNEC FOR IGH IF IGH IS ZERO FCRPALLY. 

THE ALGCL PROCECUPE EXC CCNTAINEC IN BALANCE APPEARS IN 
BALANG IN LINE, (NCTE THAT THE ALGOL RCLES CF ICENTIFIERS 
K,1 HAVE BEEN PEVEPSEC.) 

QOESTIGNS AND CCPPENTS SHDLLD EE CIPECTEC TC B. S. GAPfiCW, 
AFFLIEE PATHEHATICS CIVISIDN, ARGCNNE NATICNAL LAPCRATCRY 


:::::::::: RACIX IS A PACHINE CEPENCENT PARAPETER SPECIFYING 

THE BASE GF THE PACHINE FLCATING PCINT REPRESENTATION 
RACIX = 16.CD0 FGR LONG FCRP ARITHPETIC 
CN S3fiG 

CATA PACIX/ZA21CCCCCOCCGOCCO/ 

E2 = RACIX ♦ RACIX 
K = I 
L = N 
GO TG KC 

:::::::::: IN-LINE PRCCECLRE FOR ROW AND 


6921CC37 
69210038 
6921CC39 
69210CAO 
6921CCAI 
6921CCA2 
692100^3 
692100AA 
6921C0A5 
69210CA6 
69210047 
6921004B 
69210049 
69210050 
69210C51 
6921CC52 
6921CC53 
69210054 
69210C55 
6921CC56 
69210057 
69210058 
69210C59 
69210C60 
69210061 
6921C062 
692LC063 
69210064 
69210065 
69210066 
69210C67 
6921 C06R 
69210C69 
692ICC70 
6921C071 
6921CC72 



Ln 


C CPlLf-N FXCI-ANGF :::::::::: 

20 SCALE(N) = J 

IF {J .EG. K) GC TC 5C 
C 

0C 3C I = I, L 
F = /«n, J) 

M1,J) = AIM') 

AU.f') = F 
3Q CCMIME 
C 

EG 4C I = K, N 
F = »(j,n 
Au.n = 

A(«,I> = F 
4G GGMlNtF 
C 

50 GG TC I8e,l30), lEXG 

C SEARCH FGR PGkS ISOLATING AN EIGENVALLF 

r ANC PUSH THEN CGWN 

eo IF TL .EC. 1) GC TC 28G 
L - L - 1 

G ;i FOR J=L STEP -1 UNTIL I DO — 

ICO DC 120 JJ = It L 
J = L ♦ 1 - JJ 
C 

CC no I = It L 

IF (I .EC. J) GC TC no 
IF (AlJtl) .%E. G.CDC) GC TC 12C 
no CGNTINUE 
G 

H = L 
lEXC = 1 
GC TC 20 
120 CCNTINLE 


6S21CC73 

6921CC7A 

69210075 

6921CC76 

6921C077 

6921C078 

6921C079 

69210CR0 

692100BI 

69210082 

69210083 

6921008A 

69210085 

69210GB6 

69210087 

69210088 

69210089 

6921CG90 

6921GC91 

69210092 

69210093 

69210C9A 

6921CC95 

69210C96 

69210097 

692ICC98 

69210099 

692101G0 

69210101 

69210102 

69210103 

6921010A 

69210105 

69210106 

69210107 

69210108 


GC TC 14G 
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C SE/JPCh FCR CCLUPNS ISCLATING AN EIGENVALUE 6S21C10<3 

G ANC PUSH THEP LEFT 6S210110 

130 K = K 4 1 6G2101U 

C 6S2L0U2 

1^0 CG V7C J = K, L 69210113 

C 6921011^ 

CG 15C ! = K, L 6S210115 

IF II .EC. J) GC TO 150 69210116 

IF lAII.J) .NE. G.OCC) GC TC 170 69210117 

150 GGNTINUE 69210118 

C 69210119 

P = K 69210120 


lEXC = 2 
GG TO 20 
170 GCMIME 


G KCW EALANCE THE SUEHATRIX IN PCV»S K TC L 

CO 160 I = K, 1 
IPO SEAL Em = l.OtC 

C ITERATIVE LCCP FGR NGRP REGUGTICN 

190 NQGGNV = .FALSE. 

C 

CC 270 T = K, L 
G = C.CDC 
R = G.CBC 
C 


CC 2GC J = K, L 

IF CJ .EC. n GC TC 2C0 
G = G 4 CAPS(A{J,m 

R = R 4 CAESIAI ItJ) ) 

2C0 CCNTTNLE 

C 

C = R / RAC IX 
F = l.OCC 
S = C 4 R 

210 IF (C .GE. G) GC TC 22C 

F = F ♦ RACIX 


69210121 

69210122 

69210123 

6921012A 

69210125 

69210126 

69210127 

69210128 

69210129 

69210130 

69210131 

69210132 

69210133 

69210134 

69210135 

69210136 

69210137 

69210138 

69210139 

69210140 

69210141 

69210142 

69210143 

69210144 
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C = r ♦ P2 6S21C143 

GC ir 21C 69210146 

220 G = R ♦ «ADI)i 6921G147 

230 IF (C .LT, G) GG TC 240 69210148 

F s F / RADIX 69210149 

C = C / P2 69210150 

GC TO 230 69210151 

C NOV» EALANCE 69210152 

240 IF nc ♦ / F ,GE. 0.9500 ♦ S) GC TC 270 69210153 

G = l.CCC f F 69210154 

SCAIEII) = 5CALv-m ♦ F 69210155 

NCCCKV « .TRIE. 69210156 

C 69210157 

CC 250 J = K, K 69210158 

250 AU,J) = A(I,J) ♦ G 69210159 

C 69210160 

CC 26C J == 1, L 69210161 

260 A(J,n = A(J,n * F 69210162 

G 69210163 

270 GONTIWLE 69210164 

C 69210165 

IF lAOCCKV) GC TG 190 69210166 

C 69210167 

2E0 LOW = K 69210168 

IGK = 1 69210169 

RETLPN 69210170 

G LAST CARD CF BALAWC 69210171 

ENG 69210172 



c 

G 

G 

G 


C 

G 

C 

G 

G 

G 

C 

c 


c 

G 

G 

C 

C 

C 

G 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SieRCUTIAE INT) 

INTEGER I. J,M,N,L/»tNM f lGH,KPl,LCh,RFl t^^PI 
REAL*? A(NR»N) 

REAL*8 X,Y 
REAL4B CAES 
INTEGER IM(IGE3 

THIS SLBROUTINE IS A TRANSLATICN CF THE ALGCL PBCCECLPE ELRHES» 
NUR. RATH. 12, 3 A9-36R ( 196 E ) BY MARTIN AND WILKINSON. 

HANCeCGK FGR ALTG. GCRF., VCL . 1 1-L IKE AR ALGEBRA, 339-35E ( 197 I ) . 

GIVEN A REAL GENERAL MATRIX, THIS SUBROLTINE 
RECLCES A SLPRATPIX SITLATEC IN RGV*S ANC CCLURNS 
LGW THRnUGH IGH TC UPPER HESSENEERG FCRM BY 
STAEILI2EC ELEMENTARY SIMILARITY TRAN SFCRMAT ICNS , 

CN IN pit: 

NM MUST EE SET TO THE RCh CIMENSIGN CF ThC-C I MEN S ICN AL 
array parameters as ceclarec in the calling PRCGRAM 
CIMENSIGN STATEMENT; 

N IS THE CRCER GF TFE MATRIX; 

LOW AND IGH ARE INTEGERS DETERMINED PY THE EALANCING 
SLPRCGTINE BALANC. IF RALANC HAS NCT BEEN LSEC, 

SET LGW=1, TGF=N; 

A CENT A INS THE INPIT MATRIX. 

CN CLTPUT: 


732I0C01 
7321CC02 
7321CC01 
7321C006 
73210C05 
73210C06 
7321CC07 
7321CC08 
7321 QC 09 
7 32MDC10 
73210G11 
73210012 
73210013 
73210C1A 
73210015 
7321C016 
73210C17 
73210018 
73210019 
7321CC20 
7321C021 
73210022 
73210023 
7321CC2A 
73210025 
7321CC26 
73210C27 
7321002P 
73210029 
7321 CC30 
7321C031 
7321C032 
73210033 
7321CC3^ 
73210035 
73210C36 



onf^r>r)(=nf->oor>o 


G /> CCMflrNS THE »-ESSENBEB6 f'ATRIX. IKE PliLTIPLIERS 

G HUGE WERE USEE VEE RECUCTICN ARE STCREC IN TEE 

RERAINING TRIANGLE UNCER THE EESSENEERG KATPIX; 

INT GCNTAINS IKECRRATION ON THE RONS ANG COLUMNS 
INTERCHANGER IN TEE RECUCTICN. 

ONLY ELtRENTS LON THRCLGE IGH ARE ISEC. 

QUESTIGNS ANO CCPRENTS SHCULC EE CIRECTEC TG B. S. GARECW, 
APPLIEC RATHERATICS DIVISICN, ARGCNKE KATICNAL LABCRATCRY 



LA 

= IGH - 1 


KPl 


tCH ♦ 1 

c 

IE 

(LA 

.IT. KPl) GC 


oe 

leo 

R = KPl, LA 

H 

CPi 


RRl 

= R - 1 

o 


t = 

C.COG 


I = R 


G 

CC ICO J = Ri IGE 

IF (OARS(A(J«RRin .IE. DAESIXV) GC fC lOG 
X = AIJ.RRl) 

I = J 

IGG CGNTTNUE 

C 

INTIR) = I 

IE (I .EC. M GC TC 13U 

C INTERCHANGE PCNS ANC GCLt’RNS GE A 

EC lie J = RRl, N 
Y = AII.J) 

AfI,J) = AtR,JI 
AiRtJ) = Y 
110 eCNTlNUE 


7321CC37 

7321C038 

7321CC39 

7321CC40 

7321C0A1 

732100^2 

73210043 

7321C044 

73210045 

73210046 

73210047 

73210048 

73210049 

73210050 

73210051 

73210C52 

73210053 

73210054 

7321CC55 

73210056 

73210057 

7321CO50 

73210059 

73210060 

73210061 

7321CC62 

7321C063 

73210064 

73210065 

73210066 

73210067 

7321006a 

7321C069 

73210070 

7321CG71 

7321C07? 
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G 




7321CC73 



OC 12C J - !♦ IGH 


7321C074 



> = 


73210075 



A(J»n = 


7321C076 



AtJ,H) = V 

\ 

7321C077 


120 

CEN T INCE 


7321C078 

C 



73210079 


130 

IF (X .EC. C.GGC) GC 

TO 180 

73210080 



f'Pl = + 1 


73210081 

C 




73210082 



CG 160 I = FFl, IGF 


7321CC83 



Y = 


7321008A 



IF (Y .E€. C.GDC) 

GG TC 16C 

7321GC85 



Y = Y / X 


7321C086 



AUrFFll = V 


73210087 

G 




73210088 



CO 14C J = F, N 


73210089 


140 

AU*J) = A( I»J) ~ 

V ♦ A(F,JI 

73210090 

C 




73210091 



CO 15 C J = 1, IGF 


7321C092 


150 

AtJ,F> 5! AIJ.FI 4 

Y ♦ A ( J ♦ n 

7321CG93 

G 




7321CC94 


160 

GQNTiNtE 


73210095 

€ 




7321CC96 


leo 

GGMIME 


73210097 

G 




73210098 


2C0 

RETtiBN 


73210099 

C 


LAST GARC OF 

ELFFES 

73210100 



ENG 


7321C101 



oor>r-if^nn(-irtr)oor>nonooonor»oorjo<~>f*' 


C 2C21CC01 

C — 2C21CC0? 

C 2021CC03 

SUeROUTINE ELTPAN(NR,N,LCV*,IGH,A, IM,Z) 202100GA 

C 2C210C05 

INTEGEB I IGH,LOW,^»Pl 2C21CC06 

'RFAl*e AC^P^!GFVt^^^P*^ ) 20210007 

INTEGER INTMGP) 20210008 

20210009 

THIS SUPRCDTINE IS A IRANSLATICK CF THE ALGOL PRGCECURF ELPTRANS, 2C210010 
NUP. MATH. 16, iei-20Ail97C) RV PETERS AND ML»<I^SC^. 20210011 

HA^CeCCK FOR AUTO. GOMP., VOL . I I-L INEAR ALGEBRA, 37 2-39 5(1971). 2C210012 

20210013 

THIS SLRROIITINE ACCLPLLATES THE STABILIZED ELEMENTARY 20210014 

SIMILARITY TRANSFORMATIONS LSEO IN THE REULCTICN CF A 20210015 

REAL GENERAL MATRIX TC UPPER HESSENBERG FORM BY ELMHES. 2C210G16 

2C21Q017 

ON INPUT: 2C210018 

20210019 

NM MUST BE SET TC THE RCW DIMENSION CF TkC^C 1 MENS ICNAL 2C210020 

ARRAY PARAMETERS AS OECLAREC IN THE CALLING PPCGRAM 2021GG21 

DIMENSION STATEMENT; 2C21C022 

2C210G23 

N IS THE ORDER GF THE MATRIX; 20210024 

2C21C025 

LGW AND IGH ARE INTEGERS CETERMINFC PY THE BALANCING 2C210026 

SLPRCUTINE BALANC. IF BALANC HAS NCT EEEN USEC, 2C210027 

SET L0R=1, IGH=»N; 2C210028 

2C210G29 

A CGNTAINS THE MULTIPLIERS WHICH WERE USEC IN THE 2021002 

REnUGTION BY ELMHES IN ITS LCWER TRIANGLE 20210C!' 

RELCW THE SUECIACGNAL; 2C21C'^2 

2G210033 

INT CONTAINS INFCRMATION ON THE RCNS ANC CCLUMNS 20210034 

INTEPGHANGEC IN THE REDUCTION BY ELMHES. 20210035 

CMY ELEMENTS LCVi THRCUGH IGH ARE USEC. 2C210036 





(Tl 

W 


c 

c 


c 


c 


G 


G 


C 


C 


G 


ON cltput; 

1 GGNTMNS Tl-e T R ANS FGKPAT ICN MATRIX PRCCUCED IN THF 
REPl/GTICK EY ELNPES. 

GLESTICNS ANO CCPPENTS SHOOLC BE EIREGTEC TO B. S. GARBCW, 
APPllEC PATHEPATICS DIVISICN, ARGCNNE NATIGNAL LABCRATCRY 


INITIALIZE Z TC IDENTITY KATRIX 
DC EC 1 = I, N 

cc ee J = I, N 

EO 2 (lfJ) = G.CEG 

ZII , 1 ) = l.CCC 
EG eGNTIME 

KL = IGH - LQK - I 
IF (KL .LT. 1 ) 6 C TC KO 

FOR RP = IGH -1 STEP -1 UNTIL LCVi*l CC — :::::::::: 
EC lAG PR = if KL 
RP = IGF - KR 
RFl = RP ♦ 1 

CC ICC I = RFl, IGF 
ICG ZU,RF) = A(I,RP" 1 ) 

I = INT(RP) 

IF (I .EC. RF) GC TC lAO 

CC nc J = RF, IGH 
2 (RP,J) = 21 I, J) 

zn,j) = c.ccG 


2C210C37 

2C?1003« 

2C21CC39 

2C2100AO 

2C2lOG^l 

2C21C042 

2C210G43 

202ICG44 

2C210045 

2rZiOG46 

:C21CG47 

20210GA8 

2021G049 

2C210C5C 

2C2IC051 

2C210052 

2C210C53 

2C21C054 

20210G55 

20210056 

2C210057 

2C21C058 

2G210059 

2C210060 

2C2IC061 

20210062 

20210063 

2C21C064 

2C210065 

20210G66 

2C21C067 

2C2iCC68 

2Q21CC69 

20210070 

2C210071 

2C210072 
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130 


GCNTTNtE 


C 

Z( I ,^'P) = l.CCC 
lAO GCNTIME 
C 

2G0 RETGBN 

G :::::::::: LAST CARE CF EL TRAN 

ENE 


20210G73 

2C21C074 

2C21CC75 

2021C076 

2C210C77 

2C210078 

20210079 

20210080 



m D 


G 


G 

C 

r 

o> V 

m Q 

G 

G 

C 

c 

G 

C 

c 

c 

c 

c 

c 

c 

G 

C 

G 

C 


SUPPCIITINE l-QR2(^^,^,LCW, IGr,HfWR,Wi,Z, lEPR ) 

INTEGER I, J.KTltPfNfEN ,IT, JJ» tL,PF,NfttNf' vNh,' 

X TGE» ITS, tER,RF2,ENP2, TERR 

REflL*8 ,VRIM IIN) , Z (NR,N ) 

REAiL*8 P,G,R,5,T,V(,X,V,Rft,SAtVI ,VR,ZZ TNCRR,RflCKEF 

REAL*8 GSCRT, C^EStCSlGN 

I M EGER RING 

ECGieAL ^CTLAS 

CCRFLEX^IE Z3 

GCPFEtX«l6 CCRFIX 

REA1«8 T3(Z) 

EGLIVAIENCE (Z3,T3(in 

THIS SL■RPGUT^^E IS A TRANSLATIGN CF THE ?LGCL PRCCEDURE HCR2, 
NUR. RATH. 16, 1 E 1- 2‘Q« ( IR7C ) EY PETERS AND HIIXINSCN. 

HANCeCCK FDR ALTE. C0RP., VOL . I I-L INE AP ALGEBRA, 372-395(19711. 

THIS St'PRGUTINE FINDS THE EIGENVALUES ANC E I C-E N V ECTC RS 
OP A REAL UPPER HESSENBERG MATRIX EY THE QR RETHCC. THE 
EIGENVEGTCRS Gf A REAL GENERAL MATRIX CAN ALSO BE FCLNC 
IF ELRH'ES AND ELTRAN CR ERTHES ANC CRTRAN HAVE 
BEEN USED TC RECtCE THIS GENERAL MATRIX TC HESSENBERG FCRR 
ANC TO AGGURUiLATE THE SIMILARITY TRANSFORMATIONS. 

ON INPUT: 

NR RUST EE SET TC THE REH CIMENSION OF TV»0- C I RE N S 1 CNAL 
ARRAY PARAMETERS AS DFELAREC IN THE CALLING PPCGPAR 
CIMENSION STATEMENT; 

N IS THE CRCER CF THE MATRIX; 


87210001 
872LCC02 
8721CC03 
8721CC04 
872I0C05 
872L0C06 
872ICC07 
8721C008 
87210009 
87210010 
6721CC11 
87210C12 
87210C13 
8721CCIA 
87210015 
87210C16 
8721CC17 
87210C18 
87210019 
07210020 
8721CC2L 
87210022 
87210023 
8721C02A 
8721G025 
87210026 
87210027 
H72I0028 
87210029 
872ICC3C 
8721CG31 
872L0C32 
8721CC33 
8721003^ 
872 10C35 
8721CC36 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 

G 

G 

c 

c 

G 

C 

c 

c 

c 

c 




LCW flNC IGH ^RE INTEGERS DETER VINEC PY TEE RALANC ING 
SteRGUTINE EALANC. IF BALANG FAS ^CT BEEN USEC» 

SET LGh=l, IGH==N; 

E CENTAINS TEE UPPER EESSENEERG RATRIX; 

Z CCNTAINS THE T R AN SFORR A T ICN FATRIX FRCCLGED BY ELTRAN 
AFTER The RECUCTICN by ELHHES* dr PY CRTRAN after THE 
REEUCTION BY GRTEES, IF PERFORMEE. IF TEE EIGENVECTORS 
OF THE H'ESSENBERG HATRIX ARE CESIREC, Z KU S T CCNTAIN TEE 
I CENT I TV PAIR IX, 

CLTPUT: 

E EAS BEEN CESTROYEC; 


87P10C37 

R7210038 

8721003R 

872100^0 

872lOG^l 

872100^2 

872100A3 

8721CCA4 

87210045 

87210046 

8721C047 

8721C048 

87210049 

87210050 

87210C51 

87210C52 


WR ANC hi CCMAIN THE REAL AND IPAGINARY PARTS, 87210053 

RESPECTIVELY, CF THE EIGENVALUES. TEE EIGENVALUES 87210G54 

APE UNCRCEPEC EXCEPT TEAT COPPLEX CONJUGATE PAIRS 8721CC55 

CF VALUES APPEAR CCN SECU T I VE L Y hlTE TEE EIGENVALUE 87210056 

HAVING THE PCSITIVE IPAGINARY PART FIRST. IF AN 87210C57 

EP'^GR EXIT IS PACE, TEE EIGENVALUES SECULC BE CORRECT 87210058 

FGR INCTCES IEPR*1,...,N; 87210059 


Z CCNTAINS TEE REAL ANC IMAGINARY 
IF TEE l-TH EIGENVALUE IS REAL, 
CCNTAINS ITS EIGENVECTCR. IE TE 
WITH PCSITIVE imaginary PART, TE 
CCLUPNS CF Z CONTAIN TEE REAL AN 
EIGENVECTCR. THE EIGENVECTCPS A 
ERRCR EXIT IS MACE, NONE OF TEE 

lERR IS SET TC 

ZERO FCR NCRMAL RETURN, 

J TF TEE J-TE EIGENVALU 

CETERPINEC AFTER 30 I 


PARTS CF THE E IGENVECTGRS. 
TEE l-TH COLUMN CF 7 . 

E I-TH EIGENVALUE IS CCPPLEX 
E l-TH ANC n + l)-TH 
C IPAGINARY PARTS CF ITS 
PE UNNCRPAL IZEC. IF AN 
EIGENVECTCRS HAS BEEN FCUNC; 


E HAS NCT BEEN 
TEPATICNS. 


6721CC60 

87210061 

07210062 

87210C63 

87210064 

87210C65 

87210066 

87210C67 

8721CC68 

87210069 

87210070 

87210071 

87210072 





ARIThl'ETK IS RE/Sl EXCEPT FCR THE REPLACEf'EM CF THE ALC-CL 
PRCCECIPE CCIV EV CCPFL6X CIVISIQN. 

GUEST ICNS ANO CCPPEMS SHCLLD BE CIRECTEC TC B. S. GARECW, 

affliee pathf.patics civisicn, argonne national laboratory 


RACFEF IS A KAGMNF CEPENCENT PARAMETER SPECIFYING 
THE RELATIVE PRECISION CF FLOATING POINT ARITFPETIC. 
RACFEP = 16.GCC>t<-(-13) FOR LONG FCRF ARITFFETIC 
ON S360 ::::::: 

GATA RAGHEP/Z3AICGCCGCCCCOCCO/ 

C 

lEFR = e 

G STORE P'CCTS ISCLATEC BY BALANC 

DC 5C I = !♦ N 

^ IF (I .GE. LOW ,ANt. I .LE. IGF) GO TC 5C 

-J Vt R m = F H , I ) 

VIM) = G.CCG 
BO CONTINLE 


C 

EN ^ IGF 

T = c.crc 

C :::::::::: SEARCH FOR NEXT EIGENVALLES 


60 IF 1EN ,LT. LCV) GO TO 34C 
ITS = C 
NA = EN - I 
ENP2 = NA - 1 

C LOCK FOR SINGLE SPALL SUP-CIAGONAL ELEPENT 

C FOR L=EN STEP -I UNTIL LCV CO -- ::::::::: 

70 CO EC Lt. = LCV, EN 

L = 4 LCV - LL 

IF IL .EC. LEV) GO TC IGO 

IF IGABSIHI I ,L-1 ) ) .LE. PAOHEP ( CAP S ( H ( L-1 , L- 1 ) ) 


87210C73 

a72lCC74 

8721CC75 

87210C76 

8721CC77 

87210078 

87210079 

87210080 

B72L00B1 

872I0C82 

8721CC83 

87210084 

8721CCB5 

87210C86 

87210087 

87210088 

8721CC89 

8721CC90 

872LC091 

8721CC92 

87210C93 

87210094 

87210095 

8721C096 

87210097 

872100S8 

8721C099 

87210100 

87210101 

87210102 

87210103 

87210104 

87210105 

87210106 

87210107 

87210108 



o (~i o 


X < CABS t»- (L»L ) ) > ) C-C TC IGC 

fO GCNTIMF 

C s::::::s:5 FCRf SHIFT :::::::::: 


IGO X = ME^,EN) 

IF (i .EC. EN) CC TC 270 
V = H(^A,^A) 

W = F(EN,NA) « MNA,EM 
IF (L .EC. NA) GC TC 280 
IF (ITS .EC. 70 GC TC ICCG 

IF (ITS .NE. 1C .ANE. ITS .KE. 20 GC TC 130 
G FCRF EXCEPTIONAL SHIFT 

T = T ♦ X 
C 

CQ 120 I = LOK, EN 
120 H(I, I) = M I, 11 - X 
C 

S = 0ARS(H(EN,FA»1 + CABS (H (NA,ENP2 ) » 

^ X = C.75CG ♦ S 

m Y = X 

“ W = -C.A375C0 ■* S ♦ S 

130 ITS = ITS ♦ I 

LCCX FEP TkC CONSECUTIVE SPALL 
SUe-CIAGCNAL ELEPFNTS. 

FOR P=EN“2 STEP -1 UNTIL L CC — 
EG lAO PP = Lf ENP2 
P = FNP2 ♦ L - PP 
U = HIPtP) 

R = X - ZZ 

S = V - ZZ 

p = (R ♦ S - V*I / F(P + 1,P) + F(P,P411 
G = HIP* It P+1) - ZZ - R - S 
R = H(P+2,P+ 1 ) 

S ^ CapS(P) + CABS(C) + CAPS(R) 

F = P / S 

C = G / S 

R = R / S 


672101C9 
B7210110 
87210111 
87210112 
87210113 
8721011A 
87210115 
87210116 
87210117 
87210118 
872I0I19 
87210120 
87210121 
87210122 
87210123 
8721012A 
87210125 
87210L26 
87210127 
87210128 
87210129 
87210130 
37210131 
37210132 
87210133 
B721C134 
37210135 
87210136 
87210137 
872101 )8 
87210139 
872101AO 
872I01AI 
872101A2 
87210U3 
872101A4 



IF .EC, U GC TC 150 


8721C145 


IF (OfleSIH(F,N-in * (RAPStC) + 

% ♦ (PftPS(H( P-ltP-l n ♦ C/iESlZZ) 

1^0 CCMINLF 

150 WP2 = F + 2 

CC 160 T = PP2, EN‘ 

F(I,I-2) = C.GEC 
IF H -EG. PP2) GG 10 lEC 
F ( I ♦1-3 I = C.CCC 
160 GEM IMF 

ECljeiF CR STEP INVCliVING 


CfleS(R)) .LE. FflCFEP ♦ OARS(P) 872101A6 
+ CAeSlF(V+l,F+l n ) ) GC TC 150 872101^7 

87210UH 

87210149 

87210150 

87210151 

87210152 

87210153 

87210154 

87210155 

87210156 

RCWS L TC EN ANC 87210157 


CGIUPNS P TC EN :::::::::: 
CC 260 K = P, ^A 

NCTLAS = K .NE. NA 
IF (K .EC. P) GC TC 17G 
P = F(K,K-l) 

C = FCKtltK-l) 

R = c.eec 

IF (NCTLAS ) R = F(K42^K- I ) 

X = PAfiSIPl 4 CAPS(C) + CARS(R) 

IF IX .EG. C.CDC) GC TC 26G 
p = P / X 

C = C / X 

R = R / X 

170 S = CS IGMCSCRT IP*P+Q*C4R«R ),p } 

IF (K .EC. P) GG TC IRO 
HIK»K-1> = -S * X 
GC TC 19C 

180 IF 11 .NE. P) F(K»K-1) = -F(K»K-;) 
190 P = P 4 S 
X = P / S 

V = C / S 

ZZ = P / s 

e - c / p 


87210158 
87210159 
87210160 
87210161 
87210162 
87210163 
87210164 
87210165 
87210166 
87210167 
87210168 
87210169 
87210170 
87210171 
8721C172 
87210173 
87210174 
87210175 
87210176 
87210177 
8721G! ZB 
87210179 
87210180 
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R = R / P 

C :::::::::: RCV. RCs! If IC^ T ION 

CE 210 J = Kt K 

P = FMK.J) ♦ c ♦ H(K + 1,J) 

IF I. NOT. NGTLftS) GO TC 2CC 
F = P ♦ p ♦ MK*2,J) 

HK42f.I) = f(K42,JI - P ♦ 77 


2C0 KK41,J) = HiK+ltJ) - P • V 

MK.J) = HK,J) - P * X 
210 CGNTIMiE 
G 

J = I* INCIFN,K43) 

C GOLLf'N f»CG IF IG/s T TON 


CC 2 3'G I = 1, J 


F = X * KI,K) ♦ V ♦ HI,K*n 
IF (.NOT. NCTLASI GO TO 220 
P = P 4 ZZ * f I I,K42 ) 

H I»K42i = f(I,K*2) ~ P ♦ R 
220 fn,K4l) = F(I,K4l) - P ^ Q 

M TrKl = M I,K i - P 

230 GCNTINLE 

C ACGLRIIlATE TRANSFORVAT ICNS 


CC 2^0 I = LEW, IGF 

P = X * zn*K) 4 Y ♦ Zn,K4l) 
IP (.NOT. NCTLAS) GO TO 2^0 
P = P 4 2Z * Z(I,K42) 

Z(I,K42) = Z(I,K42» - P ♦ R 
2^0 Z( (♦K4l ) Z( I,K4H - p ♦ C 

Z(l,K) = Z(l,K) - P 
250 CCNTINLE 
G 

260 GCNTINLE 
C 

GC TG 70 

C ONE RCCT FGINO 

270 H(EN«EM = X 4 T 


87210181 

87210182 

87210183 

37210184 

87210185 

07210186 

07210187 

87210188 

87210189 

87210190 

87210191 

87210192 

87210193 

07210194 

87210195 

87210196 

87210197 

87210198 

87210199 

87210200 

87210201 

87210202 

87210203 

87210204 

87210205 

87210206 

87210207 

87210208 

87210209 

87210210 

87210211 

87210212 

87210213 

87210214 

87210215 

87210216 
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WR(EA > = H(F^,E^ ) 
hl(EN) = G.CDC 
EN = NA 
GC TC to 

C TWC RCCTS EOiKD 

260 P = (Y - X) / 2.GOC 
G = F ♦ P ♦ W 
ll = DSORT rOAPS (C ) ! 

H( EN.EK ) = X + T 
X = K EN»EN ) 

H{AA,ry;fl1 = Y ♦ T 

IF le ,LT. C.CCC) GC TC 32C 

C REAL PAIR 

ZZ = P ♦ CSIGMZZ.P) 

WR(^A) = X + 1 1 
WR(EN) = WR(NA) 

IF IZZ .NE. O.CCG) VRIEN) = X - W / ZZ 
V^KAA) = C.CCC 
WHEN) = C.CDG 
X = MEKtNA) 

R = CSCRT (X*X+ZZ*ZZ) 

P = X / R 
Q = ZZ / R 

C RGV* RCCIFfLATIO^ :::::::::: 

CC 290 J = AA, A 

ll = HIAfltJ) 

MNA,J) = G ZZ + P ♦ H(FA,J3 
MCA, J) = C 4 HEN, J) - P ♦ ZZ 
290 CCMINLE 

C CCILPA RCOIFICATICA :::::::::: 

CQ KO I = 1, EA 

ZZ = FM,AA) 

M I jAA) = C * ll ♦ P * H I ,EA) 

H I ,PA ) = G 4 F( l,EM - P 4 ll 
3C0 CCMIME 

C ACCL'PULATR TRANSFORRAT ICNS :::::::::: 


87210217 

87210218 

87210219 

87210220 

07210221 

87210222 

87210223 

8721022A 

07210225 

87210226 

87210227 

87210228 

87210229 

87210230 

87210231 

87210232 

87210233 

8721C23A 

87210235 

87210236 

87210237 

87210238 

87210239 

072!,O2AO 

872102AI 

872102A2 

872102A3 

8TZ1029A 

872102A5 

07210296 

872L0297 

87210298 

87210299 

87210250 

87210251 

87210252 
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210 


OC 3 10 I = LCh, 161" 

IT ^ ZU»NA) 

ZUtN/S) = C * ll ♦ P ♦ Zn,EN) 

ZU tEM = C ♦ ZU.PM - P * 11 
GO NT INiE 
C 

GC TC 330 

G GCf*PLEX PAIR :::::::::: 

320 WRINA) = X ♦ P 
WR(EM * X 4 p 
wn^A) = ZZ 
WHEN) = -ZZ 
330 EN * ENP2 
GC TC EC 

C ALL PCCTS FGLNC. RAGKSUBST ITLTE TC FINE 

t VECTCRS GF LPPER TRIANGLLAR FCRP :;j 

3A0 NCPP = O.GEO 
K = 1 
C 

CG 360 I = I, N 

€ 

CC 35C J = K, N 

350 NGRP = NGRK + DARSTHd.JM 
C 

K = I 
360 CGNTINLE 
C 

IF (NORM .EC. G.CCC) C-C TC ICOJ 
G FOR EN=N STEP -I UNTIL I CC — 

DC ECO NN = 1, N 
EN = N ♦ 1 - NN 
F = WP(EM 
C = miEM 
NA = EN - 1 
IF (C) 710, 6Ce, 8CC 
G :::::::::: PEAL VECTOR 


87210253 

8721025A 

87210255 

87210256 

87210257 

87210258 

8721025S 

87210260 

87210261 

87210262 

87210263 

8721026A 

87210265 

87210266 

87210267 

87210268 

87210269 

87210270 

87210271 

07210272 

87210273 

872l027<i 

87210275 

8721C276 

8721C2T7 

07210278 

87210279 

87210280 

87210281 

87210282 

87210283 

0721O28A 

87210285 

07210286 

872102P7 

87210288 
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6C0 


C 


C 

610 

e 

620 


630 


c 

6 AO 


650 

7C0 


= FN 

= l.CCC 

IF (Ka .EG. C) OE TC 8GC 

fCP I = E^-^ STEP -1 UMIl I CC -- 
CG ICC II = 1, NA 
I == FN - II 
W = HI I , 1 ) - F 
P = HI I , EN ) 

IF IP .GT. NA) GC TO 62C 

CP 61C J ^ P» 

P = R + M If J) * H(J,EN) 

IF (MI I) .GE. C.GDO) GC TC 630 
2Z = W 
S = R 
GP TC 7CC 
P = I 

IF IWim .NE. C.CG0 1 GC TO 6AC 
T = h 

IF (W .EC. G.CrC) T = PflCHFP ♦ NORP 
M I,EN ) = -R / T 
GP TO 7CG 

SCLVE RE At ECUATICNS 
X = H n » I ♦ n 

y = M 14 1, 1 ) 

C = (KRII) - F) * (WRII) - PI 4 Will) * Will) 

T=(X«5*Z?+R)/C 

HI I»EN) = T 

IF (CARS(X) .LE. CAPS(ZZ)) GO TO 650 
El I + l»EN ) = I~R -- VI ♦ T) / X 
GC TO 7GC 

H 141 ,EN ) = I-S - Y ^ T ) / ZZ 
CCNTTNLE 

FNC REAL VECTOR 
GC IC FCC 


87210289 

8721029C 

87210291 

87210292 

87210293 

8721029A 

8721029b 

87210296 

872L0297 

8721C298 

87210299 

87210300 

87210301 

87210302 

87210303 

8721030A 

87210305 

87210306 

S7210307 

87210308 

87210309 

87210310 

87210311 

87210312 

87210313 

872103U 

R7210315 

87210316 

H72L0317 

87210318 

87210319 

87210320 

87210321 

87210322 

87210323 

8721C32A 
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C CEf»PLEX VECTOS R?21032^» 


710 

f' = Nfl 


87210326 

» ' 


H 721 0327 


EIGE^VECTCP f'/lTPIX IS TRIANGlLft« 

87210328 


IF l^ARS^HIE^t^An ,LE. 

DAPS(H(^A,E^) ) ) GG TC 720 

87210329 


MNA.NM = e / HIENtNA) 


07210330 


E IKA»EM = -(MEK.EN) - 

P) / F^EN,^A) 

07210331 


GG TC 73C 


07210332 

720 

Z3 = ncl»PLX(C,GrC,-fi(NA, 

EN)) / CC^PLX (HtN-^,EA »-F,C) 

87210333 


M N A , N A ) = T 3 n ) 


87210334 


MNA*EM = 73 12) 


87210335 

7 30 

H(ENfNA) = G.CiDC 


87210336 


MEhtEM = l.CCC 


87210337 


ENR2 = iVA - 1 


87210338 


IF (E^^'2 .EC. C) GC TC 8C0 

87210339 




07210340 


EC 70C II = 1, ENM2 


87210341 


I = NA - II 


87210342 


h = H II , n - p 


87210343 


Rfl = C.CCC 


87210344 


SA = MI.EN) 


87210345 




87210346 


EC 760 J = P, NA 


87210347 


RA = RA + HI I , J) * 

HU, NA) 

87210348 


SA = SA + H IrJ) ♦ 

H(J,EN) 

87210349 

760 

CrNTINUE 


8721C350 




872L0351 


IF (h II I ) ,GE. C.CDC) 

GC TC 77C 

87210352 


ZZ = i. 


87210353 


P = f»A 


87210354 


S = SA 


87210355 


Cr TG TOC 


37210356 

770 

¥ - 1 


87210357 


IF twim ,AE. C.OCC) 

GC TC 780 

87210358 


Z3 = CCPFIXI-RA,-SA) 

/ CCHPLXIVt,G) 

87210359 


MI,KA) = T3I1) 


87210360 
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MI.EN) = T3(2) 

GC TO 7<3C 

G :::::::::: SOLVE COMPLEX ECLATIONS 

7R0 X = h( r, i + n 

V = HU* i,n 

V R = (HR (I ) - P ) ♦ ' HR ( I) - P ) + I { I) * H I ( I ) - C * C 

V I = (HR ( [J - P) * 2 .OCO * G 

IF (V'R ,EC. C.CCC .ANC. VI .EC. O.CCO) VP = ^^'ACFEP « NORM 
X (OABS(H) + OAeS(Q> + CABSIX) ♦ CABS(V) CAESIZZ)) 

23 = CCMFLX(X’^R-2Z♦RA4Q*SA,X♦S-ZZ’♦SA-C*RA) / CCFPLX(VR,vn 
H(I»NA) = T3(l) 

KI,EK) = T3(2> 

IF (OABS(X) .LE. DAPS(ZZ) * CABStCM GC TO 7E5 
MI+1»NA) = (-RA - W * F(I»AA) 4 C * FtI,EM) / X 

KT + 1,EN) = (-5A ~ H ♦ H(I,FM - C * FUtNAI) / X 

GO TO 7SC 


7E5 Z1 = CCMFLX (-R-Y*F( I»NA ),-S-Y*F ( I ,FN n / 0CMPLX(ZZ,0) 

F(T+l,NA) = T3(i) 

M (♦1,EM = T3( 2) 

790 CCNTTME 

C ENC CCMFLEX VECTOR 

8C0 GQNTINIE 

C ENC BACK SLBST ! TLT ION. 

C VECTORS CF ISOLATEC RCCTS :::::::::: 

DC 8AC T = 1, F 

IF (I .GF. tCH .ANC. 1 ,LE. IGF) GC TC F^C 
C 

GC P2C J = It N 
6 20 Z (I , J ) = H ( 1 1 J ) 

C 

EAO CCMINLF 

C MULTIPIY RY TRANSFCRMA T ICN MATRIX TG GiVF 

C VFCTCRS CF ORIGINAL FULL MATRIX. 

C FOR J = N STEF -I UNTIL LCH FC -- 


00 EEC JJ = LOHt N 
J = N 4 LCV. - JJ 


87210361 

87210362 

87210363 

8721C364 

87210365 

87210366 

8721C367 

87210368 

87210369 

87210370 

87210371 

872103’2 

87210373 

8721037A 

87210375 

87210376 

87210377 

87210378 

87210379 

87210380 

87210381 

87210382 

87210383 

87210384 

87210385 

87210386 

B7210387 

87210388 

87210389 

8721C39C 

87210391 

87210392 

07210393 

87210394 

87210395 

87210396 
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f> = FUGC'JtlGhV 
r 

CC 8PC I = IC^f IGI- 
U = C1.CCC 
c 

cr 86 C K = IGh, K 

860 22 = ZZ < Z I WK » ♦ H(K, J} 

G 

ZU.J) = zz 
e e o CG NT IN GR 

c 

GC TE IGQl 

G SET ERRGR — CCNVERGEKGE TG Rh 

C EtGEMV^LLE ^FTEK 3C ITERATIONS t: 

iCCO IE PR = FN 
1C C l RETLRN 

C L^Sl CARD CF HCR2 :::t 

ENC 


87210397 

87210398 

87210399 

87210400 

87210401 

87210402 

87210403 

87210404 

07210405 

87210406 

87210407 

87210408 

87210409 

87210410 

87210411 

87210412 

87210413 

87210414 
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SiePCUTINE PAie/SKtKf',N,LCH, I GH , SC ^ IE , N , Z ) 

INTEGER I*J*K,R,N,n,Nf'» IGE,LOK 
REflL*8 SC/SLEI N ) ,Z INR tR ) 

REAi#8 S 

THIS SljPRCUTINE IS A TRANSLATION OF THE ALGOL PRCCEDLRE RALBAK, 
NUR. RATH. 13, 293-30^11969) BY PARLETT ANE REINSCH. 

HANCPOCK FOR ALTC, CCRP., VCL.II-LIMEAR ALGEBRA, 315-326(1971). 

THIS SLBPCtTINE FCRRS THE EIGENVECTORS OF A REAL GENERAL 
MATR IX PV BACK TRANSFORRING THOSE OF THE CCRRESPCNC ING 
BAIANCEC MATRIX EETERRINEC BY BALANC. 


ON I NiP'L T : 

NR MOST EE SET TO THE RCH CIRIENSIQN OF THC- 0 1 RF N S I GNAL 
ARRAY PARAMETERS AS BECLAREC IN' THE CALLING PPCGRAR 
C IRENS ION STATEMENT; 

N IS THE CRCER OF THE RATRTK; 

LOW ANC TGH ARE INTEGERS CFTERRINEC BY BALANC; 

SCALE GCNTAiNS TNFGPRATICN CErCRRlMNC THE PERRLTATICNS 
A'NO SCALING FACTCPS LSED BY BALANC; 

iR IS THE MURPER OF GCLURNS CF 7 TC BE BACK TRANSFCRREO*, 

2 CONTAINS TFE REAL ANE IMAGINARY PARTS CF THE EIGCN- 
VECTORS TC BE BACK TRANSFCRREC IN ITS FIRST M CCLLRNS. 

GN CLTPUT: 


7021CC01 

7C210C02 

7C21CC03 

7021000^ 

7C210005 

7C21CC06 

7C210007 

7C21000B 

7C21CC09 

7C21CC10 

70210011 

70210012 

7C210013 

7G2100U 

702100)5 

7C21CC- 

7C2LC0 W 

70210018 

7C210CL9 

7C210C20 

TC210021 

7C21C022 

7C21CC23 

7C21G02A 

7C210025 

7C210026 

7C21CC27 

70210028 

7C2 10029 

7C2LCC30 

7C21C03L 

7C21C032 

7C210033 

7C21C03'i 

7C21C035 

7C2 IC036 



nor^ r*»rtnr>o^^r>r> 


00 


G 


Z CGMAIAS THE REAt AND IRAGINARV PARTS CF THE 
TRANSFGRREC E IC-ENVECTCRS in ns FIRST R CCLLPNS. 


GUEST ICNS ANC COt^ENTS SFCUIC E'E EIRECTEC TC Ba S. GARBCW» 
APPLIED PATHEPATICS DI\iISTCN, ARGCNNE NATICNAl LARCPATCRY 


IF UGE .EG. LCm GC TG 12C 


G 

G 

C 


G 


G 


CG MO I * LEW, IGF 
S = SCALE m 

:::::::::: LEFT HAND EIGENVECTQRS ARE BACK TRA^SFCR^'EC 
IF TFE FCREGGING STATEMENT IS REPLACED BY 
S= M G DG / SC A LE ( I > . 

CO ICG J = 1» ¥ 

ICO Z(lfJ) = Z(T,J) * S 

MG CONTINiLC 

FOR MLCte-l STEP -I LNTIL 1, 

IGH+l STEP I UNTIL N CG — 

12G DC lA.e II = 1» N 
I = 1 1 

IF IT .GE. LEW .ANC. I .IE. IGF) GC TO lAO 
IF II .LT. LCK) I * LOW - II 
K = SCALE! I) 

IF (K ,FC. 1) GO TC HG 

EC no J = It ¥ 

S = Z I I , J ) 

ZMtJ) = ZIKtJ) 

ZlKtJ) = S 
130 CCNTINLE 

I AG CONTINUE 


7C21CC37 
7C21C038 
7C210C39 
7C21C0A0 
7C21C0AI 
702100A2 
7C21C0A3 
7G2100AA 
7C210045 
702100A6 
7G2100A7 
7C2IOOA8 
7C2100A9 
70210C50 
7C210G51 
70210052 
70210053 
7C21005A 
7021C055 
70210056 
7C21C057 
7C21C058 
7C2L0059 
7C21CC60 
7C21 C061 
7C2L0062 
70210063 
7C21C064 
7C210065 
70210066 
7C210067 
7C210068 
7C210069 
70210070 
7C210071 
7G21C072 
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C 

REUKN 

C :::::::::: LAST CARC CF PALBAK 

ENC 


7021C073 

7021C07A 

7C210075 

7021CC76 
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C 


c 

c 





MINV 

30 

SUPROUTINE HINV 



MINV 

AO 




MINV 

50 

FURFCSE 



MINV 


IN'VERT <1 MATRIX 



MINV 

70 




MINV 

ao 

USAGE 



MINV 

9J 

CALL M I N V ( i , N , D » L , M ) 



MINV 

100 




Ml NV 

1 10 

DESCRIPTION OF PARAMETERS 



MINV 

120 

A - INPUT MATRIXf DESTRCYEU IN COMPlJTATICN 

AND REPLACED BY 

MINV 

13J 

RESULTANT INVERSE. 



MINV 

1^0 

N - CFOEF OF MATRIX A 



MINV 

150 

D - RESULTANT DETERMINANT 



MINV 

160 

L - WORK VECTOR QE LENGTH N 



MINV 

170 

M - WORK VECTOR OF LENGTH N 



MINV 

180 




MINV 

190 

REMARKS 



MINV 

200 

MATRIX A MLST EE A GENERAL MATRIX 



MI NV 

210 




MINV 

220 

SUBROUTINES AND FUNCTICN SUBPROGRAMS 

REQUIRED 


MINV 

230 

NONE 



MINV 

2^0 




MI NV 

250 

method 



MI NV 

260 

THE STANDARD GAU5S-J0RDAN METHOD 

IS USED. 

THE DETERMINANT 

MINV 

270 

IS ALSO CALCULATED. A DETERMINANT 

OF ZERO 

INDICATES THAT 

MINV 

280 

THE MATRIX IS SINGULAR^ 



MINV 

290 




MINV 

300 




MI NV 

3 10 




MINV 

320 

SUBRQljTINE N I NV I A , N , D, L » M ) 



MINV 

3 30 

DIMENSION A < U ,LI1 ) ,M( 1) 



MI NV 

3 AO 




MINV 

350 




MINV 

360 



181 


c 






MINV 

3 70 

c 


IF A DOUBLE 

PRECISION 

VERSION OF THIS ROUTINE IS 

DESIRED, THE 

MINV 

380 

c 


C IN column 

1 SHOULD 

EE RERQVED FROM THE DOUBLE 

PREC ISIO'N 

MINV 

390 

c 


5TATEHENT t*HICH FOLLOWS. 


MINV 

^00 

c 






MINV 

410 

c 


nOUtlLe PRECISION A ,0,BIGA,MQLD 


MINV 

4 20 

c 






MINV 

430 

c 


THE C NUST 

ALSO BE PEHQVEO FROM OOUELE PRECISION 

STATEMENTS 

MINV 

440 

c 


APPEARING IN OTHER ROUTINES USED IN CONJUNCTION 

WITH THIS 

MINV 

450 

c 


ROUT INE. 




MINV 

460 

c 




VERSION OF THIS SUBROUTINE 


MINV 

47U 

c 


THE DOUBLE 

FREC IS ION 

MUST ALSO 

MINV 

480 

c 


contain OOUELE PRECISION FORTRAN FUNCTICNS. ABS 

IN STATEMENT 

MINV 

490 

c 


10 MUST EE 

chanced TO 

CAES. 


MINV 

500 

c 






MI NV 

510 

c 





,,MINV 

520 

r 





♦ 

MINV 

530 

c 


SEARCH FOR 

LARGEST EL 

EMENT 


MI NV 

540 

c 






MINV 

550 



0=1.0 




MI NV 

560 



NK =-N 




MINV 

5 70 



DO 80 K=1»N 




MI NV 

580 



NK -NK + N 




MINV 

590 



U K 1 = K 




MINV 

600 



M ( K I = K 




MINV 

610 



KR=NK+K 




Ml NV 

620 



BIGA-A{K.K J 




MINV 

6 30 



no 2U J=K,N 




MI NV 

640 



! ? = N*( J- 1 ) 




MINV 

6 5G 



CO ?0 1=K,N 




MI NV 

660 



IJ=IZ+l 




MI NV 

670 


I;J 

if( ABS(BICA)- 

ABSL A( Um 15»20,20 


MINV 

6 80 


15 

HIGA = A( IJ ) 




MINV 

6 90 



L(K I = I 




MINV 

700 



M( K » = J 




MI NV 

710 


20 

CONTINUE 




MINV 

720 



n r> r> o o o o 


C 

C INTFPCH/SNGE ROWS 

C 

J = L (K f 

If(J-K) 35,35,26 
26 KI=K-N 

00 3U I=1,N 
Kl=HI+N 
HCLC^-A (K I ) 

JI =KI“K+J 
KI l = A ( J I ) 

3U AIJI» =HCLD 

IMTERCHANGE COLUMNS 

35 I=M(K) 

IF(I-KI A 5. A 5, 3 6 
38 JP=N*(I-1) 

CO AO J=1,N 
JK=hK+J 
JI=JF+J 
HOU 0=-A( JK ) 

A( JK) = A{J I ) 

^0 A(JU =hOLD 

DIVIDE COLUM'N BY MINUS FIVOT 
contained U BIGAi 

A5 IFIBIGA) Ae,<-‘E,Ae 
A6 D=G»G 
RETURN 

^8 no 55 I=1,N 

lF(r-K> 50, 55 f 50 
5u IK=FK+I 

A( IKI = A( IR J/I-BIC-A) 

55 CONTINUE 


MINV 730 
MINV 7A0 
MINV 750 
MINV 76U 
MINV 770 
MINV 780 
MINV 790 
MINV SCO 
MINV 810 
MINV 820 
MINV 830 
MINV 840 
MINV 850 
MINV 860 
MINV 870 
MINV 880 
MINV 890 
MINV 900 
MINV 910 
MINV 920 
MINV 930 
MINV 940 
MINV 950 
MINV 960 
MINV 97C. 

(VALUE OF PIVOT ELEMENT IS MINV 980 

MINV 990 
MINVIOOO 
MINV 1010 
MINV 1020 
MINV 1030 
MINV 1040 
MINV 1050 
MINV1060 
MINV 10 70 
MINV1080 



c 



MINV1090 

c 


REDUCE K/iTRIX 

MTNVllOO 

r 



MINVlllO 



DO £5 r=i,N 

HINV1120 



IK=NK+I 

RINV1130 



HCLC = A{ IK » 

MINVll^O 



I J = I - N 

M I N V 1 1 50 



DD 65 J=1,N 

MINV1160 



I 0 = I J + N 

N1NV1170 



TF( I-K ) 6C,£5,6£ 

KiNvuao 


60 

TF(J-K) 62t£5»£2 

►•I NV1190 


tl 

K J= I J-I +K 

MINV1200 



A( 1J)=HCLC'<=/! (KJ )*Ai IJ ) 

MINV121U 


t5 

CQKTI ME 

MINV1220 

c: 



NINV123D 

c 


DIVIDE ROW BV FIVQT 

R'INV12^0 

c 



MINV1250 



K J = K-N 

M NVI260 



DC 75 J=1,N 

MINV1270 



K J=K J+N 

M1NV1260 



IF<J-!<> 70,75,7G 

MINV1290 


70 

A(K J)=A(KJ|/HIGA 

MINV13G0 


75 

CC NT INUE 

f^INV131D 

c 



MINV1320 

c 


PRODUCT OF FIVQT5 

M IN V 1330 

c 



VI NV1340 



0=D«BIGA 

MINV1350 

c 



VTNV1360 

c 


REPLACE FIVGT EV RECIPROCAL 

MI NV13 70 

c 



MINV138n 



A( KK ) = 1 ,0/B IGA 

MI NV139-J 


•30 

CCN TINUE 

MINV1400 

c 



MINVi'tlO 

c 


FINAL RCW ANC CCLLKN INTERCHANGE 

MINV1420 

c 



MINV1^30 



K=N 

MINV14A0 



184 


1C.1 

K=(!^-1) 

RINV1450 


IF(K) 15G,15a,lC5 

MINV 1460 

1 ..5 

I = L (K) 

MINV147CJ 


IFH-K) 12C»12C,1C8 

MINV1480 

ICd 

J0=N«(K-1 ) 

MINV 1490 


JR = N'C( I~I \ 

MINV1500 


on no J=1»N 

MINV1510 


JK ~ JQ+J 

MINV 1520 


HOLC-AUK J 

MINV1530 


JI=JR*J 

MINV 1540 


A( JK)=-A(JI) 

MINV1550 

1 10 

A(JI) =hCLC 

MINV1560 

120 

J = I^(K ) 

MINV157G 


IFtJ-K) lCOtlOG,125 

NINVL580 

125 

KI = K-N 

MINV1590 


DO 130 I=l»N 

MINV160f) 


KI=KI+N 

MINV1610 


H01C-A(Kl» 

MINV 1620 


JI=KI-K4J 

MINV1630 


A( KI)=-A( JI ) 

MINV1640 

13J 

A { J n = HQ L D 

MINV1650 


GC TC IGO 

MINV1660 

15C 

RE URN 

MINV 1670 


END 

MTNV16B0 



APPENDIX B 


INPUT DATA AND OUTPUT LISTING OF THE SAMPLE PROBLEMS 

B.l Application of the FREEVI Program to the Wing 

R.1.1 Input Data Listing for the Bell Wing 

The FREEVI program input data for the wing 
are illustrated in this section. The struc- 
tural data are shown in Fig. 6 and in Table 3. 
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PELL WING 




8/17/74 

DATAOOOI 

1 





TCASF 

DATA''f'‘'2 

*1 





T PUNCH 

DATA3n03 

0 





IGUFST 

OATAOOOA 

9 

20 6 




NFTrNTTP 

nATAr^OOS 






ERP 

OATA0006 

0. 0 





DNFG 

0ATA0C07 

O.r 





RAMOA 

0ATA0008 

o.r- 





COL 

OATA0009 

O.f 

0, G 




SPKB,SPKC 

OAT AGO 10 






ALPHAH 

OATAOOll 

9202.9 

E62653.0 

E62653.0 

E62653. 0 

F62653,0 

E6 

0ATA0012 

2653.0 

E62653.0 

962653.0 

962653.0 

F6 


DAT AO'' 13 

IS79A.0 

E610410.0 

E610410.0 

E610410.0 

E610410.0 

E6 

PATA0014 

lOAlO, 0 

E 6 10410.0 

E6 104 10.0 

E6 10410 iO 

F6 


DATA0015 

3.^- 

O.n 0.0 

0.0 

0.0 o.n 

O.G 

o 

. 

o 

OATA0016 

0.0 






DATA0017 

0.00705 

0.00705 0.0048B 

0.00486 

0.00488 0.00488 

0.00508 

0.03248 

OATAf>018 

O.^'orr 1 






0ATA0019 

41.0 

21.0 21.0 

21.0 

21.0 21.0 

21. 0 

18, 4 

PATAOO?n 

14.6 






PATAP'*’2l 

4.71 

4288.8 6591.6 

6570.0 

53.076 



DATAO022 

1686 8, 0 

E 62696, 0 

E 6 2696.0 

E62 696,0 

F62696.0 

E6 

DATA0023 

2696. D 

F62696,0 

E62696.0 

F62696.0 

E6 


nATAOO?4 

0.389 

FCir.389 

ECO. 360 

E00.389 

F00.389 

FO 

PATA0025 

0.389 

E00.389 

E0Q.389 

FC0,389 

eo 


0ATAnr*26 

O.r. 

Er’r.fl 

ECO.O 

FOO.O 

*=00.0 

FO 

nATAr\027 

o 

. 

o 

E00.0 

EOO.O 

FOO.O 

EO 


OATA0028 



B.1.2 The FEEVI program output data for the Bell 
Wing. The example output of the Bell wing 
is shown in this subsection . 
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rell wing 


INPUT DATA 


%A 

\\ 


3/17/7A 


! P UNC H= 0 I GH E S T =0 

m OF OEGPE PER NODE® f. 

NO OF ELEWENTS® 9 ^ 

NO DF MAX ITEP ALLOEWD* ?.Q Qk 

NCI OF MODES® 6 
ERR= 0.00 1 00 

0MEG= u.O 

LAMBDA® 0.0 ^ ^ 

COLLECTIVE PITCH® O.G 

SPRING® O.D O.r 

ALPMAH= O.n 

— ^FLAPPING RENDING STIFFNESS — 

0.920?901E*10 0,265?P)0E*l ) C.265J(MIDEH0 0. 2653nnoEM 0 C.2653GC JE» 10 0 . 26530 L CIE n -■ 

0.26 53 000E+ltl 0 . 2653000 E410 
--CHOROWISF PENDING STIFFNESS — 

O'. l8 79AoOE«-ll r. lOAlOOOFtll 0. lOAlOeOE*-! I 0. lOAlOUCF*-! I U.nAluulF^ll 0 . lGAlOOOF<-n 

0. lOAlOOOf*! I O.IDAIOQC.F+U 
— ANGLE OF TWI*^T — 

i.'.o 0.0 0.0 0.0 0.0 O.u 

0.0 

— MASS DISTRIHUTIDN— 

0.00705 0.00705 C.0GA8R 0. 00988 O.OOA88 O.nCARR 

r.ooci i 

— ELEMENT SIZE-- 

Ai.corj'jc 21.00000 21.00000 Pl.OOrn: 21.00000 21 .J 00 )f 

19.600^0 

TIP MASS ROLL INERTIA YAW INERTIA PITCH INFRTIA MASS COUPLING 
9.7lfU.O 928R. ROOT8 6591,60156 6570.00000 53.07600 


w 


.26530 ' p*i; 


L. 0098 8 


21.00000 


0.00988 


7i.00r n: 


0. 00986 


21.00000 


0.nC9R8 


21.000 If 


53.07600 


9.71P(.0 928R. ROOT8 6591,60156 6570.00000 53.07600 

— TDOSIINAL RIGIDITY — 

0. 163'680DE + 11 0. 2696000E ♦ 1 0 f'.2696000E«-10 j . 2696f' K>F +10 ti.?695C>CijE + L. r .2696 ".usFH ' 

0 . 26 961.0 OE + 1 0 0 . 2696C 0 0<= ♦ I'l 

— rqmfNT of INEPT I a — 

C. 3fl90u';iuF+OtJ 0. 38'9Gfi00E+0O i.. 389T03OE4C'* '>.33 9.1 no E+:i''i 0 .359 L^i.-.'F + ' ' i.' .359:' Ou'i'^ +f .• 

0 . 33 9C C OOF *0 Cl 0 . 3 39000rF+ro 
— MASS COUPLING along SPAN — 

L." 0.7 '1. < / 0.,; >.0 

C . 7 C . D 


..0 '5 )5 


2 1 .*>)•' 3 ■) 


.,•’675 )' •‘=+1 


.iqq • ^ 4 . 



00 


TENSIDN DiWE TO GENTRIF FORCE 

J .0 0»C 0.0 i, .) 0 

O.C 0.0 

MASS = 0.62615E+01 

MOMENT OF INERTIA AT RQDT= 0.21483E»06 
TOTAL length DF THE BEAM* O,2C00OFf’03 

MAX. SI7E CF STF IS A8A SPEGIFIF0 SIZE IS 65A 

NO. OF NEGATIVE OIAGS.= 0 FACT. COMPLETED 

EIGENVAMIFS= 


0. 2 3 L' 910 + 03 

0. 89 9980 +03 

0.162450+G5 

0.346510+05 

0.26 5i)40+06 

EIGPNVALUES= 

0.277680+03 

G. 390940+33 

0.273030+T4 

G. 12 9700 +05 

0.3261 CO+05 

EIGFNVALMES= 

0.2776B0+G3 

0. 890840+03 

0.273000+04 

0.129680+05 

324940+05 

E1GENVALUES= 
('.2776 8D+03 

0.890340+03 

0.273000+C4 

0.129680+05 

0.324 )40+C5 

EIGENVALUES* 

0.277680+03 

0. a9''.B4D+03 

0.273000+04 

0.129680+05 

0.324940+05 

RA O I AN/SFC 
0. l66640+')2 

0.298470+02 

0.522500+02 

G. 113880+03 

0.18C260+03 

HERTZ 

0.26521 0+01 

C. 475030+01 

0.3 3 1580+01 

0.181240+0? 

0. 286890+02 

NO. OF ITERATION* 5 CONVERGE 0 WITHIN 

n . lOOC.GD-02 


RE Due EH MASS 

MATRIX 





C . IGOOOO+Cl 
0. I L6 990-22 
-0.5151113-20 
-0. 116090-19 
O . SflAOCO-ZA 
-0.517070-2C 

RCDHCEO ST IF 


0 . la 000 0+01 
-0. V302 50-21 
-3. 13A 700-17 
-0. 133760-2G 
0. 760flin-20 

M'ATP !X 


G. ioaoco*ci 

-0.922360-19 
0.121020-18 
0. 139150-17 


G.l00(-‘00+Gl 

0.109990-19 

0.8667'70-18 


0. 130000+01 
3.208380-19 


0.277680+U3 
U. 12'' 56D- IB 
596 690- 13 
r. 365030-17 
}. 2779AD- 16 


U. e9CHA0+C3 
0. 38A2C0-17 

-a. 118880-16 
0.635370-13 


0.273000+04 

0.937510-16 

- 0 . 9 P 9950-18 


0.129690+05 

-0.58898P-14 


0.324940+05 

0.169650-15 


L. 447 150- 16 -C.12F7AO-12 


-0.111590-15 -0.890910-14 


0.533030+1)6 
0.276 560+ 06 
0.262170+06 
G.26097D+06 
0 . 260860+06 
0.510740+03 
0.812870+02 


3 . 10 0000+ 01 

Ci.76aa6li*j6 



kOlNr. SHiPFS * *-Hf 


I* 1 


K 

1 

2 

3 

h 

■> 

6 

7 

R 

q 

10 


WU ,JJ 

Ci.c 

0. iaPf)412E-Cl 
0.2 99504 <3E -01 
U.5 370tl9OF-Ol 
0.1102392E«-00 
0.1&71160EH 0 
0,2322l27FfrJ0 
0.3n334 77F 4-00 
0.36894 1 7E»00 
0.4221950E>C0 


Vlt ,J| 

0 . ) 

-0.411R297F-09 
-C .7596179E-C9 

-0.l020tS6E-ua 

-0.l089RllE-0‘i 

-O.93963O0E-r9 

-0.6202676F-C9 

-0.245575fl£-f;9 

0.5387467E-11 

C.6504591F-10 


0^(1 .J> 

0.3 

0.5154577F-03 
0. l275l4RF- )2 
0, 1929206F-02 
<■ .2477859E-02 
0.2921520E-02 
0.326'3B45=-02 
0.3496786E-02 
0.362U5C9E-02 
0.366697RE-02 


OVC t .J > 

0.0 

-0. 160766>F-IC 
-f). I 562 29 3 F- 10 
-0.8398275F-11 
o.203-:.6nF-ii 
0.1l86243t--10 
j. 1763C36E-10 
0.168Q664E-10 
0.9286009F-11 
-0.198971RE-11 


PHK I,J) 

3.0 

j. 178141 9"- -4 
I ,682 *774'-J4 
12 2.18F7E-/1 
0. 1765127E-33 
0.23U340 f-33 
0.7R556«4'^-33 
0.34 3 10' 6'-- 33 
0.3R7R768F- )?, 
0,4257R25£--)3 


"p'tn I ,.n 
I .473? 3 i 3- 4 

5'- 

. I f f. 

j. 7587 IP ^ 
0.259541 ?''-0F 
' .?F<'-F434F- ;5 
;i.2 5'>4F I 7<^-r 5 
564 r_- 5 

2 5”6 1 6 1 ■ - J 5 


2 


VO 

o 


K 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


Wl f ,J ) 

0.0 

-0.1165887E-08 
-0.17Bt)436E-08 
-0.1508654E-08 
-0.42 874 95E-09 
0.7976879E-0'» 
0.141 973 BE- 08 
0.1085335E-08 
0.2516420E-09 
-0. 1154645E-09 


vn >j) 

0.0 

0.1734024E-01 
0.412C878E-01 
0.7735723E-01 
O.1239B57E+C0 
0.179316ae*00 
0.2415592E+00 
0.3089'325E»00 
0.3708636E+00 
0.421 1U7E+00 


own f j) 

0.0 

-0.4099619E-10 
-0. 10783856-10 
0.3577683E-10 
0. 6140244E-10 
0,49017 LOE- IP 
0.7250959E-;i 
-0.36880127-10 
-0.44000056-10 
0.21092916-11 


DVn tJ I 

0.0 

0.8156588E-03 
0,14432486-02 
0.1985208E-02 
0.2441 776E-02 

0.2H13344E-P2 

0.3 10049 76-02 
0.3304057E-07 
0.34153396-02 
0.346193 I E-02 


PH n I f J > 

O.n 

0.4967241=-12 
0. 1793-.59F-1 1 
28P9738F-1 1 
0.3564264''-11 
n. 37076436-11 
'•.3337820F- U 
0.256098 I ‘^-11 
C. 1653754F-11 
0.B527415E-17 


9i7HT M , J 1 
0,1334?R2'^-13 
' . lP-13 

0.5?71469'=-13 
.4?11°5? = -13 
V. l'^ i:i476'^-l3 

- .59427116-14 
.2797991^-13 

-0.4423n5"-13 

- I 1 7F-13 
-j. 572526 1^-13 


I* 3 


K 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


WII.OI 

0,0 

0.3 13 20 ue- 02 
0.86825426-02 
Q.l 8769926-01 
0.32902436-01 
0.5060757‘=-01 
0.71445536-01 
0. 9 50 26 67 e- 01 
0.11770336«-00 
0.l37C2 79E«-n0 


vn ,j) 

0.0 

0.1007552E-05 
0.19673196-05 
C.2640408E-05 
0. 281599CF-05 
0.24250UE-G5 
0.15C37266-05 
0.63179136-06 
-0.1453627F-07 
-0, 167B002E-06 


own ,j) 

0.0 

0.1483440F-03 
0. 3762855E-03 
3,58 350n0E-il3 
0. 761583BE-C13 
0.9210168F-03 
0.106 J44 66-02 
0. 118282BE-02 
0.12821096-02 
0, 1366351F-02 


OVCI .J» 

3.0 

.3.4164 28 76-07 
0.40361626-07 
0.215RIJ16E-07 
-J. 5406047 E- 08 
-0.3075634E-G7 
-0. 45549266-07 
-0.4332351F-07 
-0.23387196-.*7 
3.437934*6-08 


PH I n , J I 

n.o 

-3.5369093f-33 
-0. :05u5996-02 
-0.3678715P-02 
-0.53178266-j? 
- J.6959036F-02 
-0.8599557=- 32 
-0. 1023B67=-31 
-0. 1167341c- 31 
-0.1281075E-01 


9PMI n ) 

l 02632 l.= - 4 
1776540= -L 4 
-0.5 78fl566 = -i.4 
—".76453'^=—' 5 

-0.7790148=-j4 

-:.7.a l'10R5 = -t 
780329^=-'’ 4 
-0.78 >l ?3l=-.4 
-''.7793421F---4 
-0.77B64006-U4 



1 = 


K 

H(I f JJ 

vn , J * 

owl I tJ> 

OVI I »J> 

pHin.Jt 

r>PHl < T,.l ) 

1 

0.0 

0.0 

0 .0 

J.O 

o.n 

-■'.3 !24'?32 = - ‘6 

2 

(J.556 1896F-01 

D.1292796F-04 

i, 2441II53F-0? 

0 • 3.16T j96^I*L)6 

-0.3n2o6Ri;'-j4 

-( .9‘»93^2BF-:>6 

3 

0.13207165^03 

0.239612AF-04 

r'.459fel?5F-J2 

1. 49023685-36 

-0. n567 r4c-33 

- '.3'’166q3f-.i5 


t>.2385222E>tHi 

0.323fl695F-0.4 

0.53;)3 770F-02 

o.2753 5'54F-.16 

-U.2068353F- 33 
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0.43 76 7 298 +uO 

-0. 25 75 3<- 2 8-0 2 
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B.2 Application of the FKEEVI Program to the Blade 

B.2.1 The FBEEVI Program Input Data Listing for 
the Boeing Rotor {Hingeless Rotor) 

The input data deck setup is illustrated 
in this subsection for the hingeless 
rotor. Structural data are shovm in Fig. 7. 
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B.2.2 


The FREEVI Program Output Data for 
the Boeing Blade 

The example output of the Boeing 
blade is shewn in this subsection. 
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COLLECTIVE PlTt;H= Q.01TA5 

SPRiNG= 0.0 3.0 
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0.3A030 0.25310 

0.18330 

0.12220 
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NO. nr- vi-Darivf ni,u;s 


fact, r :*<pi ftfi 



EIGFNVAllieS* 


O,208 3C'D*y4 

0. 129S00*35 

0,2756904 

f ,4 2C5904-I. t> 

EIGENVALUES* 
(1. ltl90l)*U4 

0.298400*04 

0.l9Rt)5D*05 

C,9'i24 304 

eigenvalues* 

0.111720*04 

0. 285?fJD*04 

0, lR13Tn*C5 

0.755T>Cn4,)5 

F.IOFNVALUeS* 

0,111720*04 

0.285190*04 

0.1P8R 60*95 

L,74';7’)D*05 

EIGENVALUES* 

0.111720*04 

0,285190*04 

0.188860*05 

0,749340*05 

RAD UN/ SEC 
0.334240*02 

0,534030*02 

0. 137430*03 

C. 27 3740*03 

HERTZ 

0,531970*01 

0. 849930*01 

0,218 7 2U*U2 

C. 4 3 5670 *02 

NO. OF ITERATION* 5 CONVEROED UITHTN 

r.lO«CuD-02 


REDUCED HASS MATRIX 
O.lOOODD»0l 

H 0.923<»60~19 O.IOJGOD+Ol 

» 0.216R70-16 0.5A3580-20 G.lCOPCn+Cl 

0.927090-20 -0.196790-21 -0.121A9D-11 O.IOOOOD+Ol 

REDUCED STIF MATRIX 

0.96A220^04 

0,591740-14 0,113770*05 

-0,773290-15 0.452090-16 0.2741 ID* J5 
0,999970-15 -0,515870-16 0,302540-14 834590+1)5 


*•»* BLADE MODE SHAPES **** 


K W(|,J| 

1 0.0 

2 -0.3071345E-02 

3 -0. 401036 lE-02 

4 0.1771531E-01 

5 3.7252330E-01 

6 0.1537749E+00 

7 t).247l325F*Ki 

8 0.3411351E+00 

9 0,4277322E*CO 

10 0.501 3666E*0:< 

11 C.5611690E+30 


VU.J) 

0.0 

a.3320933F-0l 
0. I 9 70 02 2 F *00 
0,5429144E*t O 
0.10C7425F+CI 
0.152189CE*vjI 
0.2C56107F+CI 
0.2593284F+01 
0.3123945F+M 
0.3643(93F*Cl 
0.4l5.jF85e*ri 


DWU.J) 

O.J 

-0.4l3865ie-03 

0.389U76F-04 

3.2249592E-''2 

з, 447l347e-02 
0.5777B58E-0? 
0, 6131638^-02 
0,589039S=-v12 

и. 51B45B7F-i 2 
0.4255518E-n2 
1).35132?5‘-- -2 


nv( I ,JI 

),5)573o5=-j 2 
0.l58509Ot-'’l 
U.272.-761 ,l 
i^,3iau-.3Cl--0l 
(■.339i,7T9--Jl 
,(.345r>l 

i)»3432 557"- Jl 
),3if 7477!-- ;l 
...32 8r94j‘^-0l 
.■.??3cw'92^-vl 




1 = 7 . 


K wUtJ » 


vn »JI 


ow < I . J ) 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


3.0 

O.<»85^569E-0l 
0.2357861F»0n 
0.5839912E+3U 
0,10?1941F«-01 
0.l9960i)3E«-Cl 
0,1 9993 73E«^01 
0,252 9533F+C1 
0,306339<»E«-0l 
C.3fa53433E«-Gl 
0.422922H'=*ai 


c.o 

-0.l526439F-''l 

-0.77C4520F-CI 

-0,18G7868F+00 

- 0 , 2 e 4267 ef «- ri 3 
-G,35fl74C6r-«-CO 
-0.4039884E«-tJ 
-i).4239655E4-ftr> 
-0.4732C69F+U0 
-0.4( ogFTlFtO.') 
-0. 390481 8F«-C'' 


J 

3,590?052P-i.-2 
U.l74’j3 0e=-0l 
0. 2iS594BtE-0l 
■’.292l?9flE-.'l 
C. Jl24??6E-0l 
'J.33:‘'39P3F-tll 
0.34 74 381E-01 
U.36033F2E-01 
'^.3634258E-(?l 
•J.36M487E-01 


T= 3 


iO 

■4 


K 

1 

2 

3 

4 

5 

6 
7 
P 
9 

10 

11 


MCI ,J| 

o.r 

-0.74l577lE-ri 
-O.3768920F*OC 
-0,95422 73F ♦•30 
-0.1634645E^01 
-0.217l334E^0l 
-O,233ll5lE^0l 
- 0 . l 9 l 763 ^ F ^ t 1 
-0.3257l8lFfC0 
n.B585268F^00 
0.2 855342F^( 1 


vn , j ) 

0.3 

-0,6B34236E-01 
-0.4091305F+C0 
-0. 1C96154F+01 
-0,189066lEfCl 

- 0 . 24 f 5 l 69 Ffrii 

-0.25440CIF+CI 
-(!.l956 378F*ta 
- 0 , 5665 P 63 F^-:Ci 
0.1lt8359F + fil 
32434 SPFfU 


Dwn . j ) 

•1,5 

-u.flfll50l7E-02 
-0,27864?fiF-3l 
-3.43t?693F-Ot 
-0.419<*l36t-0l 
-:’.?4 37?3lE-t'l 
0.37534054-02 
0 , 47911368-31 
0.31M5462F-01 
0. 12 1466 IF ♦00 
i 3 n 7493 nf ’:<; 


t- 4 


K 

1 

2 

3 

4 

5 

6 
7 
H 
') 

1 . 

I I 


UJI 

0.0 

0.50173 83F--JI 
0 . 3397898 E ^ C 3 

0 , 92 f ,? 693 r^l - 

1. 1313488E + :H 
0.32401 lOFt'iO 

-v;.5951P78F ♦O 3 
- J .? 063768 P ^- jI 
-C. 221 53 554 ♦ I 
-i'. ’4P 7B96F ♦{ t; 
i ... 42 /| 5 ,;/ V - 2 f>''l 


vn , Ji 

0.0 

.■'. 24 L > 3 ‘= 98 F *^3 
0. l25iniF»'.:l 
0.27Co7P5F«-i11 

n . v 5 i 5 tr ) 4 r «-: i 
V .23P3333F+01 
J.921 l'^77FtC 

- 0 . 1215673 F ^ C 1 

- fl . 2 ! J 9 ^ 1 ' PFt„l 

-0, nP.3F J IF*- I 

o . iif 5 ‘^ '’ 9 f »r 1 


nvM I 

si • ) 

j . oUl 9792 fr - i2 
J.2845969F-JI 

0.40 (1)1 5?F-Jl 
9.41 433741. -''•2 
-,".6b;>'.'l< 3r-ul 
- j.1'73 ■’77'- ♦0 
-0.679?3n0‘- U 
5533531 4 - Jl 
• I. 15 72M CP«-' •' 
'). > 3908.3 1 . 4 - 3 t 


nvn.Jl 

u.u 

-3.1884 350=- )? 
— u . 60 uoB 1 5 F - >2 
-0.7669512P-02 
-J,6J4299P=-97 
- J . 3 O 21565 e -02 
— J.2163647F- j 2 
-).5953l77F-03 
J.5Dl5825=-.»3 

v '. 1142 320 F - 37 

0 . 1 U 18 OBE - O 2 


OVH.JI 

0.0 

-0.795851 3F-02 
-C.32107PIF-01 
-0.5<’3135?=-Jl 
-0.4755 142E-01 
-C .2328279F-31 
0.1486159F-01 
V’.6U827C F-.Jl 
u. 1031131 
0.175?54t=^ JJ 
.'.136 38 9F^ 3; 


1V<! »J> 

0 

.234 + 51 ' 1 -^- I 
0.8/^25115-1.1 
V .8272529'-- M 
0 . 174 . 9^3 4 F —' 3 1 
-(,’.92P->-3<>7F- I 
->. 143 n ^3 = » 
-C. ll. 7 «r'> ♦ 
•..51 3 75- -V 
j . Ui . i 71 '♦. 
4*1 5 ♦ 



B.3 The TILDYN Program Examples 

B.3.1 Input Data Listing for the TXLDYti 
Program 

In this subsection f the sample problem 
data deck setup is illustrated. The 
flight condition is powered flight for 
the Boeing model and autorotation 
flight for the Bell model. The data 
for the computation is shown in Table 3 
in detail. 
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c.o 
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DATA0016 
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0.788C0E-12 

C.54042E-11 

0ATA0024 

CJ«8iaC5E 

-11 

C. 19227E-11 

C. 451676-11 
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0.272436+OC 



0ATAOO3 3 

0.0 


-0. 244136-10 

-C. 671356-11 

0.2C905E-10 

0.36406E-10 

C.29522E-10 

0ATA0034 

Ga50409E 

-11 

-C.213496-1C 

-0.261576-10 

0.961C6E-12 



0ATAUO35 

0 m\) 


0.719336-03 

C. 127376-02 

U.11530E-02 

C.21576E-02 

0.24876E-02 

OATA0036 



N> 

O 

o 


C.27435F-C2 

C.29258E-C2 

C.3C262E-02 

0.2v6RAE-02 



0ATA0037 

U.U 

C. 26198F-12 

C.S436^E-12 

C. 1519;»E-Il 

Q.18532E-11 

0.193(46-11 

DATAU038 

U.16760F-11 

Col2374E-ll 

C .C35C7E-12 

0.29?nCE-l2 



UATA0039 

C,703<i8E-I^ 

C. 83C£ lF.-i4 

fl*276C7E-I 5 

3.2l6irAE-l3 

G.90527E-14 

-0.45720E-14 

OATAOOAO 

-V. .16357F-I3 

~C.2i 63 2E-l' 

-Co292 12E-13 

-C.3C956E-13 



OATA0041 

C.O 

0. 2G-<t01£-C2 

Cc56E93E-02 

G.U37ie-Cl 

0*21795E-C1 

C.336P3E-CI 

DATA0042 

C.47769E-01 

C.C26 16E“<-i 

C.7933GE-CI 

C.925e2E-€l 



DAT AUC43 

0.0 

0.51567E-C6 

C.952CZE-C6 

G.128A0E-C5 

C.13769E-05 

0.11962E-05 

r)ATA0044 

C*8022AE-a6 

C* 32^elE-C6 

C* 16CC6E-0? 

-0.65507E-07 



CATA0045 

t .v) 

0. 96 *3 2 2E— i ^ 

C.24E29E-03 

0.3857AE-03 

0.50960E-03 

0.620456-03 

OATA0046 

C.7iq23F-C3 

C.EC735E-C3 

C.87878E-03 

0.92691E-03 



DATA0047 

0 .0 

C.2Q161E-C 7 

C.19697E-C7 

0. U769E-C7 

-0.22027E-Oa 

-0.145146-07 

UATAC048 

-G.21872E-C7 

-C.2ll2^E-C7 

-C.1201AE-07 

J,.1£AC4E-C8 



0ATA0049 

G.C 

-fl* A6056E-C3 

-C. 176A2E-02 

-J.31557E-02 

-U.45620E-02 

-0.59703 E-02 

DATAC05C 

-a .73783E-C2 

-G.67E5'iE-C2 

-O.Ut 17E-0 1 

-C. U99AE-01 



DAT A0051 

-0.12235E-CA 

-C.15239E“C^ 

-C.58235E-OA 

-0.65598E-CA 

-0.66841E-04 

-0*670266-04 

DATA0C52 

-C.67023E-C^ 

-c.eesecE-c^ 

-0.6693 iE-04 

-0.66E87E-OA 



DAT A0053 

1C 






CATA0054 

0. 1 0« 1 

C*1 

C.l 

0.1 G.l 

0.1 

0.1 

DATA0C55 

U.l C.l 






OAT A0056 

O.Cie*) O.Ci 

C877 C.CCC91 

C.CCC85 

C.0CC98 O.OOIOA O.COlOA 0.00116 

OATA0057 

0*1)0123 0.CC1I6 C.CCIGA 





OATAC'^58 

W.65A5 0.5236 €.2^27 

C.2793 

C.2CC7 C.1A84 0.0873 

0.C291 

0ATAtC59 

-0. C2q? -0.1 

C873 -C.1396 





DATA006C 

U.C 175 






D4TAP961 

0 . u 

-0.30837E-C2 

-C.A0A33f-C2 

C.17669E-01 

0.72429E-01 

0.15358E+00 

DATA0062 

U.2A69lE«-tO 

C.3<(1C7E*CC 

C.A2791E+0U 

U.5C157E^C0 

0.56107E«>00 


0ATAU06J 

C .0 

0.33251E-O 

r. 1<57 17E + 00 

Q,5A31BE+0C 

C.10076E«C1 

G.152196«^ai 

DATAC064 

C.2056CE+C1 

C.25932E+C1 

C.212A1E+01 

G.36432E+01 

0.41507E+01 


DATA0065 

t* .o 

-C.41524E-C3 

C.37e66E-0A 

:.22488E-C2 

0.4466 ie-02 

u. 577156-72 

0ATAC.‘»66 

0.613h6E-G2 

Q.59U6CE-C2 

C.51967E-C2 

0.42450E-C2 

0.34889E-02 


OATA0067 

CoC 

C*396 16E-C2 

C. 15E6CE-01 

0*27209E-Ul 

0.31T95E-01 

0.338906-01 

0ATACC68 

0 .34499E-(U 

C.24336E-C 1 

C.336E1E-CI 

£!.2 2 866E-Gl 

0.32277E-01 


DATA0069 

C.C 

C.49'22E-Gl 

C.23571E+C0 

0.5E387E+0C 

0. 10218E4^01 

e*14959E+Cl 

OATAnOTC 

o.i99q3e*oi 

G.25296E+C 1 

O.3ce2AE+0l 

a.365356»U 

0.42293E«‘U1 


DATAC071 

C.O 

-i). 15271E-Cl 

-C.76997E-01 

-C. IEC72E+CC 

-0.2a422E<t-00 

-0.35870E4-00 

OATA0072 



-0,403V5E+00 
0 *0 

C.330A3E-ei 

G*C 

~u *2163 IE— C2 


-0.<23S1E4CC 
C.58S^5E-G2 
C, 34 74 56- Cl 
-0, 18029E-C2 
-C.55548E-C2 


-C*42317E+G0 

C.i72SSE-Ul 

C*36C66E-01 

-C,6CC45E-C2 

C.549C3E-C3 


-0.4CSC2E+00 

0,2e5S4E-Cl 

0«36642E-Ci 

-<3.7e7ClE-02 

0.11376E-02 


-0.3905964^00 

0.292i3E-0l 

0«3oei4E-01 

-0.60446F*J2 

O.UObjE-02 


C.31244E-01 

-0.39221E-02 


DATA0075 

0ATA0074 

DATAC075 

0ATA0O76 

0ATAC077 




BiLL RCTOh ALTaRCTATtC^ FLIGHT <5-CCF 

L-GUST FREG 

ANALYSIS 6 EIGEN 8/18/74 

DATAOOOl 


1 





ITYPE 

DATA0002 


I 





IFLT 

OATA0003 


9 





DOF 

CATAC004 


I 





FPEQRE 

rATAu005 


U 





IFRMAG 

DATAC006 


1 





EIGEN 

PATAOuOT 


3 






OATAC'OOa 


l,l<tfc8 F-148. 

C C .7 

5C4G.C 




0ATA0009 


15J.U 1260. G U.n 

5.1 

L.GC65 51 

.3 -C.2618 

DATAnnifv 


?0r.,5 62. 

le 5.7 

U .C C4 

-0.a5 C. 

C 0.01 

0.031 

OATAOOU 


1 • C 0* c 

c.c 

o«c 

U«0 0*1 

0 

U GUST 

OAT AGO 12 


238fc>.l 

3.4 A35o3.G 

236C9C.C 




OATAOC13 


277.68 89C 

.64 2730. C 

12968.0 

3249^.0 260860*0 


0ATAO014 


9 






DATA0015 


U.2G5 3.1C5 C.1C5 

C .105 

C.1C5 C. 

1C5 0.105 

G.092 

OATA0016 


0.C73 






DATAC017 


c. .0 

0. IC96^E“CI 

C.2995aE-Cl 

0.63781E-C1 

0.11024E40'i 

0.16T12E400 

0ATA0018 

(O 

C.23221c+tC 

0.3C335E4CC 

C.36 69-4E+00 

0.422 19E+00 



DATA0019 

o 

fO 

C« 0 

-G.41163E-C9 

-C.75962E-C9 

-G.1C207E-08 

-0.lw898E-08 

-0*93963 E-09 

CATA0020 


-C.6202 7E-C9 

-C.2455EE-C9 

Q.53615E-11 

C.65046E-IC 



DATA0021 


c»o 

C. 515 46E-C3 

e. 12751E-U2 

0.19292E-02 

0*247798-02 

0*292l5£-02 

OATA0022 


t .326C0E-C2 

0.34966E-C2 

C.3C2C5E-C2 

C.3667CE-C2 



CATA0023 


O.U 

~u. 16Q7TE-I0 

-C. 15623E-10 

-0.83983E-11 

0.20307E-11 

0.I1862E-10 

DATA0024 


0*17630E-10 

C. 166CTE-1C 

C.92660E-11 

-J.IE697F-11 



DATA0023 


u «u' 

0.17816E-t4 

G.6E248E~04 

0.12209E-C3 

0*l765ie-03 

0.23103E-03 

OATAC026 


C.28557E-C3 

C.34G1CE-C3 

C.36 7eeE-GJ 

0*42578E“03 



DATAG027 


( .47329E-J6 

C.58952E-C6 

0.225 308-05 

C.25303E-C5 

0*258728-05 

0.2 5954E-05 

DATAC02B 


C.25966E-C5 

C.25966E-C5 

Q.25S6^E-05 

0.25962E-05 



0ATA0029 


CeU 

-C*116 59E-Ct 

-€• 176C4E-08 

-0.15C87E-08 

-0.42875E-U9 

0. 79769 E-09 

DATA0030 


C.141<i7E-0e 

C.lC653E-i.£ 

0.25164E-C9 

-Q.11546E-09 



0ATA0O31 


C.Q 

e. 1734CE-C1 

C.^12C9E-C1 

C*7?357E-fll 

0*123998 tOu 

0.17932E4-U0 

DATA0O32 


C.24156FKC. 

Q.3a895F*GC 

0.37CE6E+00 

a.42 lllE+OC 



DAT AGO 3 3 


C .u 

-C.4C9«6E-1C 

-C.1C784E-10 

0. 35777 E-10 

0.61402E-10 

0.49017E-1G 

0ATA0C34 


C.7251QE-11 

-C.36tfCE-lC 

-C.44CCCE-IU 

0.21093E-11 



DATA('*"»35 


i: .0 

0.81566E-G3 

fl. 19432E-02 

Q.19852E-C2 

U.24418E-02 

0.281336-02 

DATAQ036 



REPKODUCIBILnT OP THH 
ORIGINAL PAGE IS POOR 


C.310C5E 

-C2 

C.23C^ 1E-C2 

C.34153E-C2 

□•34619E-02 



OAT AGO 3 7 

U .0 


0. 496726-12 

G. 179356-11 

C. 269926-11 

0.356436-U 

C. 370266-11 

OATA0038 

0.333786 

“11 

C. 256906-11 

0.166366-11 

0.65274E-12 



0ATA0039 

C*1334 3:E 

-13 

C* 1594C6~i3 

C.52U5E-13 

0.42U9E-13 

0.191056-13 

-C.59927E-14 

DATA004C 

-0 ,2798 iE 

-13 

-0.44239E-12 

-C.53361E-13 

-3.57253E-13 



rATA004l 

C.C 


C.2132CE-C2 

C.66625E-02 

0.1E770E-01 

0.32902E-01 

0.506086-01 

OATAC042 

C 

-Cl 

G.S5027E-C1 

C.l 17 7CE+CJ 

3. 13703E4-G0 



OAT An043 

G .0 


0.1C616E-C5 

C.19673E-C5 

C.264G4E-C5 

0.2816UE-05 

0.24250E-05 

DATA0044 

C« 159876 

-05 

C.63 1 79E-C6 

-C. 14536E-07 

-0.16780E-G6 



CATA0045 

ii *0 


C. 14624.E-C3 

G.31629F-C3 

C.5EC51E-C? 

0.76168E-03 

C.92102E-03 

DATAC046 

0. lC6C^E 

-C2 

G. 116286-02 

C. 12621E-02 

0.13664E-02 



DATA0047 

C.O 


C .4K43E-G7 

C,4i. 3626-0? 

3.2158nE-C7 

-0 . 540686-U8 

7566-07 

0ATA0348 

^0.4554 9 E 

-C7 

-C.43;24E-t7 

-C.236E7E-C7 

Q.4F 793F-CE 



0ATA0049 

G»0 


-G. 5369 lE-03 

-C.2C566E-02 

-J.36787F-02 

-0.531786-02 

-0.695 90 6-02 

0ATAC05O 

-L .859966 

-c2 

-C. 1C 2396-C1 

-C. 1 1673E-CI 

-3. 12eilE-Cl 



CATA0051 

-Q. 1^26 3E 

-C4 

-C.1?765E-C4 

-C. 67886 E-04 

-0.76463E-Q4 

-0.77901E-J4 

-0.781046-04 

DATA0052 

-0.7HG83F 

“C4 

-C.7EC 12E-CA 

-C.77934E-C4 

- J . 7 7 864E-04 



DAT A0053 

10 







OATA0054 

M 0,1 

® 1 
UJ . 1 

0. 1 

G.l 

0.1 

G« 1 U. 

1 c.l 

0. L 

OATAnCSS 

O.l 






DATA3056 

c 1.695 3 

w».CO 

5439 C.CC31C8 Q.C01295 

0.301236 0, 

001465 0,001165 0.001036 

DATA0057 

0,atG9712 

C*t:C0E417 C.CCC712 




OAT AG!058 

V . 6 9u 7 

3.55 

65 C.9363 

G.3354 

L. 2L9^ G. 

1222 G.C698 

0.0262 

DATA0059 

-C.C175 

-C.0611 -G.IC47 





DATA0060 

u . C' 1 3 







DAT AO 161 

i. . 3 


C.ii34966;+CC 

C.e7GClE+00 

0.13C71E+01 

0.U459E+O1 

0.21867E+01 

DATAC062 

C.262 9 5E+GI 

G.3d737E+GI 

C*351E6E«G1 

G.396336+01 

0.440726+01 


DATA0063 

L. • 'J 


-0.92327E-C3 

-G. 16 251E-G2 

-G.42110E-C2 

-C.91843E-02 

-G.168C9E-01 

DATA0064 

-0.26659E 

-Cl 

-C.3799CE-C1 

-C.49970E-01 

-0.61872E-01 

-0.73142E-01 


0ATA0065 

C ,2383 8 E 

-01 

C.25C28F-GI 

C.29t956-tl 

C.29179E-CI 

0.29315E-01 

0.294 52 E-ai 

OATA0066 


C.29572E-L1 C.296^^F-C1 C.2^661£-0l C.29630E-O1 0.29554E-01 DATA0067 

0.0 -0*53?e6€-C4 -G*U252E-Oi -0*233GaE~03 -U.4l699t-03 -U. 58510^-03 DATA0068 

-»..7l476E-t3 -2.76626E-C3 -O.eC^SSE-Ui -Q.n7e8E-C3 -0.72129E-03 DATA0069 

C.O 0.13814E+CC C.27322E+0J 0,37629E+00 0«40968E*00 0,35495E+00 DATAC070 

t).2l55lE+-Jt. C.12192P-G1 -C.22{. 14E«-Cu -L.49l4aE+CC -0. 75705E+00 nATACni 

O.J C.e3efe3E-Cl G.22E56E+Ca 0.5C534E+00 0.93759E+00 0.15260E»01 0ATA0072 


204 


U«223t.2E+ul 
i .. . s -:'' 778e - c2 
-0. 11715E-C1 
0.0 

0.5U693E-L1 
7SE6.699 3745 

vj « J 

C.2126CE+CI 
C .0 

0 .33649(r + C0 
0»U 

C.475 82E-CI 
G.l5Q72f-Cl 
-fl.2i)85 8E-Cl 
C.O 

C,lS37l;:+Cl 
C • vl 

-C.13642C+C1 

0 • * J 

-t .1842 7 E -Cl 
-0.45442E-C1 
v.615 42E-(Jl 


0,3023CF4C1 
0.93fel2E-C2 
-C. 15C62E-C1 
a.ei9E2E-Q2 
C.54E55E-C1 
3.C 136140. 

c.946ne-Gi 
C.26C13E+C1 
il.2273€E«CC 
-C.3118SE-C I 
C. 121<€f-Cl 
0.54627E-01 
C. 152 15E-CI 
-0.27515E-CI 
0.2C944E*CC 
C. 14«3gE+Cl 
-0.66471E+CC 
-C. 1315CE+CC 
0.26660E-C1 
-0.46323E-C1 
-0. ‘2335E-U 
C.94766E-C1 


C.3E 752E + 01 
C.€7H7E-a2 
-C. 16982E-01 
C. 13524E-CI 
C.571C4F-01 
C 31668C.C 
G.3 1163E+CU 
C.31551E+C1 
C.44648E«-:a 
-C.47EE6E+CC 
C.16565E-01 
0.591026-01 
C. l4C58E-0t 
-Ci,3 leilE-iil 
C.672C6E+00 
1. 569836*00 
-C.12762E+01 
C.14329E+01 
C.34476E-01 
-C.6E326E-01 
-C.366Q1E-01 
0.UF40E*CJ 


0.47389E*01 0.560756*01 CATA0»73 
0.52225E-t2 -0.39969E-03 -0.64671E-02 0ATA0074 
0.17683E«01 -0. 17663E-01 DATA0o75 
U.22872E-CI 0.34C646-J1 0.4372gE-0l nATA007ft 
0.57871E-01 0.57870E-01 n4TAC077 

DATA007P 

3.59558E+CC 0.972916*00 0.147866*01 DATACQ79 
0*466UE*Cl 0.55616E*U1 0ATAC08C 
0.6 14736*00 3.672096*00 0.580876*00 DATAOO01 
0.968056*00 -0.146896*01 DATA0082 
0.210756-Cl 0.287986-01 0.38043E-01 DATA0383 
C.61171E-01 0.61353E-01 DArAC084 
0*666C5E-02 -0.474706-03 -0.110166-01 DATA0C85 
0.332466-Cl -0.33377E-01 DATA0086 
0.120096*01 0.169296*01 0.199696*01 0ATAG087 
0.554846*00 -0.177106*31 0ATAf<088 
0.179666*01 -0.210026*01 -0.200276*01 DATAC089 
0.330666*01 0.526776*01 OATA0090 
0.35341E-CI 0.291356-Jl 0.104076-01 0ATA0091 
0.795586-01 -0.814436-01 OATAC092 
0.297056-01 -0.929706-02 0.23359E-H OATAt.093 
€.129386*00 0.131086*00 0ATAC094 



B.3.2 


The Output Printout for the TILDYN 
Program 

The output printout is illustrated 
for autorotation flight of the Bell 
model in this subsection. 
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«««*«^^^4^««*4i**««**«**i»***4i#4t*»*«4'****4!***4''^^4i* ti4F**t*«**«******Mi«i*>*4:******«i««->t 

BELL ROTOR AUTOROTATION FLIGHT 9'-00P U-GUST FREO ANAL. VS IS R EIGEN R/ 16/74 
ITYPE= I IFLT« I IDOF* 9 IRFS« I I6I66N* I IFRHAC* 0 


NO OF blades 

ftOH 

CHORD 

IB 

HMASr 

LOCK M3 

3 

1. 1468001E-07 

1.4000000E*01 

1.260000DE*03 

5,13000036*01 

3.67692476*00 

OMEGA 

R 

VEL 

CL 

CD 

RAMDA 

4.SOOOOQUE^01 

l.5000000E*02 

5.040nOOOE*03 

5.69999986*00 

6.^9999836-03 

6.9999999E-31 

COLLECTIVE PITCH 0EL3 





2.1800000E-02 

• 

-2.6179999E-01 





HING L 

MING CHOO 

H1N6 CL 

MING CD 

MING CMO 

MING CM A 

2.0050000E*02 

6.2179993E+01 

5.69999986*00 

4.090000TE>.03 

-5, 000000 lE-02 

0,0 

DISTANCE AG 

EA WING ALPHAH 





1.000000 2 E-0 2 

3.0999999E-02 






EIGENVALUES ( NATURAL FREQUENCIES ) 


— ( RAO/sec l*♦^— 

**BLA0E COLLECTIVE** 

79BB.699 37453.000 


♦'BLADE CYCLIC** 
2380.100 


4143.398 
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390.843 


2730.000 


**WING** 


277.680 

— PAD/SeC/OMEGA — 

•■“BLADE collective/ OMEGA'S^* 


1. 86 2 

4.032 

**BLADE CYCLIC/'OHEGA** 


l.Ol 6 

1.341 

**H1NG/3MEGAT+ 


0.347 

0.622 


EXCITING FORCE COMPONENTS 

U GUST V GUST W GUST 

l.O0t>0 00OE*00 0.0 0.0 


blade mode shapes ***** 

COLLECTIVE MODES 


J 

1 

2 

3 

4 
6 
6 
7 
3 
9 

IQ 

11 


XX(J) 

0.0 

0.10t)00(KiF*00 
0.2 00 00 OOE *^00 

0.3000001E*PO 

0.4000001E«'00 
Q.500000lF»OCl 
0.6 0000 ) IE *CU 
0,7 000002 E*00 
0.8C00002E*00 
C,900j002E4>JO 
( . IOOODOOE«-Ol 


VI If Jl 

0.0 

0.2273000E>00 
0.446A800E400 
0.61473D0E400 
0.672C900E400 
0.580870CE400 
C-.3364900E400 
-0.3118900E-01 
-0.47888C0E*00 
-0.96805GI E*00 
-C,14609ODE*PI 


J 

1 

2 

3 

4 

5 

6 
T 
B 
9 

10 

11 


XXU) 

0.0 

O.tUOOOOOE 4-OCl 
0.2 0 DCiOOOE*DO 
0.3(10 000 IE #00 
3,400 JOOiE+DO 
C.50C )GCl'E*CO 
; .6<)C0001F«'00 
0.70Q0002F*00 
).3 00n(,i;2E«-00 
Q.9CC OC02E*00 
O.lODGOOOF^Ol 


VI If J> 

0.0 

-0.6647100E«-00 
-0.1276200F>01 
-0.179660IIE401 
•0.210020UE 1-01 
-0.2002700E*0l 
>0.136420CE*>01 
-0.1815000E4C0 
0.1432900E401 
0.3306600E«^01 
Q.5267700E401 


THETA 0 

THETA 1C 

THETA IS 

.0 

0.0 

c-.o 


OVIIfJI 
J.1S07200E-01 
0.1S2l50aE*01 
0. 140S800E-01 
n.8660499E-02 
-0.4747000E-03 
-0. 11016006-01 
-0.2085800S-01 
-0.27575006-01 
-0.3161300E-01 
-0. 33246006-01 
-0.3337700E-01 


OVlIfJt 

-0.45442006-01 
-0,42335006-01 
-0.38601006-01 
-0.2970500E-01 
-0. 92969986-02 
0.23359006-01 
0.61542006-01 
0. 94766026-0 1 
C.11840G0E400 
0. 12938006400 
0.13108006400 


HU ,JI 

0.0 

0.94671016-01 

0.3116300E4flO 

3.59558i)0E400 

0.97291006400 

7.14786006401 

0.21260006401 

0.28973006401 

0,37551006401 

0.46611006401 

a.S5Sl600E401 


HU fJI 

0.0 

0.20944006400 
0.672L600E«^00 
0.12009006401 
(1.16929006401 
0.199690CE401 
0.19371006401 
0.1443800E401 
0.56983006400 
-0.5548400E400 
-a. 17710006401 


DHU f Jl 

0.0 

0.12196006-01 

O. 1656500E-U1 

P. 21075''OF-01 
0.28798006-01 
*',38043006-01 
0.4758200E-01 
0.5462700E-P1 
0.59182006-01 
0.61171006-01 
O.61353D0F-01 


OHII , J) 

0.0 

0.26660 DO E-71 
0. 34476')0F-01 
0.35341006-Dl 
O.291O500F-OI 
0.104)7006-01 
-7.1S427i)CE-01 
-!). 46323006-01 
-0,63326LrE-f)l 
-0.7955801F-01 
-f',8l443’)lE-01 



CYCLIC MOOES 


J 

1 

2 
3 
t» 
5 
b 

7 

8 
<5 

10 

11 


XX( J» 

0.0 

0.1000000E4-00 
0.2000000E4^JO 
0.3000001E»30 
0.400000tE4-CO 
D.5G0C001E»30 
0.6 lOtiOOlE^OO 
0.7000002E«^J0 
o.aoconcaEfOo 
0.90U0002E 4^00 
0.1 0000 OOE4^0t 


VdtJ) 

0.0 

-C.^232700E-03 
-0.1625100E-02 
-0.6211C01E-02 
-0.9186301E-02 
-C.16B090DE-01 
-C.2665900E-01 
-0,3 799000 E-0 I 
-0.<>997000E-01 
-0.6197200E-01 
-0.73U199E-01 


OV(IvJ) 
0.2930400E-01 
-0.S376599E-04 
-0,1035200E-03 
-0.2330800E-03 
-0.6169899E-03 
-a,5850999E-03 
-0. 71676C0E-03 
-0.7862600E-03 
-D.8029500E-03 
-0.7778800E-03 
-C.7212900E-03 


WM «Jt 

0.0 

a.4»360600E«00 

o.aroDiooE^oo 

a.l307lOOE*Ol 

0.1T6S90QE«^01 

0.2186700E+01 

0.2629500E*Ot 

0.3073700E»01 

0.3518639E*01 

0.3963300E*Ot 

0.46Q7200E«01 


own «j| 

O.2083BOOE-CII 

0.2902800E-01 

0.2909500F-U1 

0.2917900E-31 

0.2931500E-01 

a,296520OE-0l 

0.2957200E-01 

0.2966600E-01 

0.2966100E-01 

0.2963000E-01 

0.2955600E-01 


K> 

O 

CO 


J 

1 

2 

3 

6 

5 

6 

7 

8 
9 

10 

11 


XXIJI 

0.0 

a. lOoooooE 4^00 
0.2 0000 OUE^OO 
0.3 00000 IE 4)0 
0.6000001E400 
0. SOU0001IE400 
0.b OOC0O1E4OO 
0.7000002E400 
0.8C00002E400 
0.90000020400 
0. 10000 U0E401 


vdtJi 

0.0 

0.63B6298E-01 

0.2285600E400 

O.S053^COE400 

0.9375900E400 

0.1526000E401 

0.22382C0E40t 

0.3033000E401 

0.38752C0E401 

0.6738900E401 

0.S60T50OE4O1 


DVIdJ) 

0.1507200E-01 

0. 8196302E-02 

0,1352*OOE-Ol 

0.2287200E-01 

0.3606600E-01 

0.6372900E-01 

0.S069300E-01 

0.5689500E-01 

0.S7tU600E-0l 

O.S787100E-01 

0.5787000E-01 


Md fj) 

0.0 

0.1381600E400 
0.2733200E400 
0.3762900E400 
O.6O960QOE4OO 
0.3S49500E400 
0.21 551 OOE4O0 
0. 1219300E-01 
•0.2301600E400 
-0.99U0OOE40O 
-0.7570500E400 


OWlIiJ) 
0.9077799E-02 
0.9361200E-02 
0.8710701E-02 
0.5222499E-02 
-0.3996899E-03 
-0.6967ia0E-O2 
-0.1171500E-01 
•0. 1508200E-01 
•0.169B200E-01 
-0.1768300E-D1 
-0.1766300E-01 


J 

1 

2 

3' 

5 

6 

7 

8 
9 

10 

11 


XX1J) 

0.0 

0.1COOOOOE400 
0. 20000 00E40C 
0. 3 0000 01 E 400 
0.4000001E400 
0.5OaO0OlE4)O 
0.60JC001E40C 
0.7000C02E400 
0.8 OOOOU2E400 
0.90COC02E400 
0.1000000E4U1 


THETNIJ) 
0.6807000E400 
0.S5e5000E400 
0.4363rOOE 400 
0.3054000E400 
0.2094000E400 
0.122200CE400 
0.6 980002 E-0 I 
0.2620000E-01 
-0.1750000E-01 
-O.bllOOOOE-Ol 
-0.1047000E400 


AMASS (J) 
0.6992999E-02 
0.5A3899BE-02 
0. 3108000E-02 
0. 129S000E-02 
O.I336000E-02 
0.1465000E-02 
0.1165000E-02 
0. 1036000E-02 
0,97119998-03 
0.84170aOE-03 
0. 712000 lE-03 





m*.*** wing mode shapes ***** 


J 

1 

2 

3 

4 

5 

6 

7 

8 
9 

IJ 


WX( J) 

0.0 

0.2050000E+00 
G. 31000 QOiEf'On 
0 . 4150000 E +-00 
D. 52 000 ODE* 00 
0.6250a01E*OD 
0.73000C1E*00 
0,83500OlE*(IO 
0. 9 2 Too 01 E* CD 
0 ,10003 ODE *01 


G(tI,Jt 

0.0 

0.1C96400E'01 
O.2995CO0E-01 
G, 63781 02E- 01 
0.110240GE+OC 
0.167120GE*00 
0,232 2100E*00 
0.303 3 500E *00 
0.36894 DOE *00 
U.4221900E*GO 


OGCIItJ) 

0.0 

0.5154600E-03 
C.127S100E-02 
0. 1929200E-02 
C.247790GE-02 
0.2921 500 E-02 
0.3260e00E-02 
0.3496800E-C2 
0, 362O50DB-02 
t .3667000E-02 


Mil ,3) 

0.0 

-0.4113299E-09 
-0.7596199E-09 
-0.1020700E-08 
-0.1089800E-OB 
-0.9396299E-09 
-0.6202 70 l-r--09 
-0.245S800E-09 
0.5387500E-11 
U.6504600E-10 


DZ(II« J) 

0.0 

-0.1607700E-I0 
-0.1562300E-10 
-U.839e300E-ll 
0.203C700E-11 
0. 1186200E-10 
0.1762999E-10 
0. 1680700E-10 
0.9286000E-11 
-Q.L889700E-lt 


HPHIM I, Jl 

0.0 

0.1781600E-04 
0.6824800E-04 
0.1220900E-03 
0,17651006-03 
0, 2310300E-33 
0,2855700E-t)3 
0.3400999E-03 
0.3878800E-03 
O.4257BOOE-03 


to 

o 

VO 


J 

1 

2 

3 

4 

5 

6 
7 

a 

9 

10 


W X( J > 

0,0 

U. 2 05 00 OOF *00 
0.3100000E+00 
0.4 1503 OOE+00 
0.5 200000E+00 
j ,62500G1E*OC 
0.7300001 F*00 
0.8350C01E+00 
3.92700016*00 
O.IOOOOOOE*OI 


G ( 1 1 1 J I 

0.0 

-0.1165900E-08 
-0. 1780400E-08 
-0.1508700E-08 
-0.4287499E-09 
G.7976899E-09 
0.1419700E-08 
0. 1085300E-08 
0 . 2516400 E -09 
-0. 11546 OOE-09 


OGtlUJI 

0.0 

-0.4099600E-10 
-0.1078400E-10 
0.3577701E-10 
0.6140199E-10 
0.4901700E-10 
0.7251000E-11 
-0.3688000E-10 
-0. 44000 OOe- 10 
0.21C930GE-11 


zm.ji 

0.0 

0. 1734000E-01 
0.4120900E-01 
0.T735699E-01 
0.1239900E*00 
0. 1793200E*00 
0.2415600E*00 
O.30S95UOE*OO 
0.3708600E*OD 
0.4211100E*00 


OZditJI 

0.0 

0.8156600E-03 
a.i 4432 oae -02 
0.19B5200E-02 
0.2441 BOO E-02 
0.2813300E-02 
0.3100500E-02 
0.3304100E-02 
0.3415300E-02 
0. 3461900E-02 


NPHinitJI 

0.0 

0.4967200E-12 

0.1T9350OE-U 

0.2899200E-11 

0.3564300E-11 

0.3702600E-U 

0.3337B00E-11 

0.2569000E-11 

0.1663800E-11 

G.852T400E-12 


J 

1 

2 

3 

4 

5 
b 

7 

8 
9 

10 


W X ( J ) 

0.0 

U .2O5O0()0E*OC 
t).3 100300E*00 
0.415000uE*OC 
0.52000006*00 
0.6 25 00 DIE *00 
Q.73DO0CJie*OO 
0.8350001F*00 
:’.927orClE*00 
0.10003031*31 


G( lit J ) 

0.0 

0.3132000E-02 
0,86 a 250 I E-02 
0.18770CGE-01 
0. 32902 OOE- 01 
O.S060800E-01 
0.714460flE-Ol 
0,95U2703E-01 
0. ll77000E*Or 
D. 137030CE*00 


DGI lltJ) 

0.0 

0.1483400E-03 
0.3762899E-03 
0.5805t99E-03 
t.76l680lE-03 
0.92 10201 E-03 
0.1060430E-02 
0,U82 800E-02 
0.1282100E-02 
C, 1366400E-02 


M IltJI 

0.0 

c. 1067600E-05 
0. 1967300E-05 
0.2640400E-0S 
0.28160O0F-05 
C. 24250 OOE-05 
r.l598700E-05 
0.6317900E-06 
-fi,14536U0E-07 
-0.1678000E-06 


ozm.ji 

0.0 

0.4164300E-07 
0.403620QE-07 
0.2I5800RE-07 
-0.54C6800E-OB 
-0.3075600E-07 
-0.4554900E-07 
-0.433240QF-07 
-0.23B8700E-07 
0.4879301 E-03 


UPHIIII.J) 

0.0 

-0.5369103E-03 
-0.2056600E-02 
-0.3678700E-D2 
-0.5317800E-02 
-t’,6958999E-02 
-0.85996C2F-02 
-0. 1023930F-01 
-0.11673006-01 
-O,128110OF-01 


DHPHIf IltJI 

C. 47329O0E-O6 
0.5895203E-06 

D. 2253000E-05 
0.25383006-05 
0.2587200E-05 
0.25954006-05 
0,25966006-05 
0.2596600E-05 
0.25964006-05 
D.2596200E-05 


DWPHinitJI 
r.l334300E-13 
0.1594000E-13 
0.5271500E-13 
0.4211900E-13 
G.1910500E-13 
-0.5992701E-14 
-0.2798000E-13 
-0.4423900E-13 
-D.5336100E-13 
-0. 57252986-13 


owPHnii, ji 
-D.1426300E-04 
-0.1776501E-04 
-0,67885996-04 
-0,76462996-04 
-0.7790 lOOE-04 
-C.T8104POE-04 
-C. 78 383006-04 
-1,78012006-04 
-0,7793400E-34 
-0.77864006-04 
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EQUATIONS OF MOTION 


A* X"*B*X ' C* X*D» E 


A MATRIX* 


0.100006*01 
n f\ 

0.0 

0.0 

0.0 

0.0 

0.0 

0.205166-10 

0.132826*00 -0.529256-07 

0.23958<^*00 


U. 10 CODE *01 

0.0 

0.0 

0.0 

0,0 

-0.147196-01 

-0,980826-05 0.44288F+0C 

n.o 

0 *3 

n r« 

0.0 

0.100006*01 

0.0 

0,0 

0.0 

-0,245236-04 

0.119686*00 0.288976-04 

0.0 

U«Q 

c.c 

0.0 

O.lCOUOE+01 

0.0 

0.0 

0. 133866-10 

0.866646-01 -C. 345336-07 

-0,794806*00 


0.0 

0.0 

0.0 

0.100006*01 

0.0 

-0.255396-03 

-0.561426-01 0.768426-02 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.100006*01 

-0.140376*00 

0.20'*656-02 0.164446*00 

0.0 

0,615476-10 

-0. 22 0796- 01 

-0.367856-04 

0.401596-10 

-J.383J9E-03 

-0.210556*00 

0.100006*01 

0.0 O.i) 

0.0 

0.398466*00 

-0. 14712E-04 

C. 179526*00 

0.259996*00 

-0.842136-01 

0.311486-02 

0.0 

0.100006*01 0.0 

0 .0 

-0.158776-06 

0.66 4326*00 

0.433456-04 

-0. 10360E-06 

0. 115266-01 

0.246666*00 

0.0 

0,0 0.100006*01 

0.0 

0 .715746*00 

O.C 

0.0 

-G.23844E+01 

3.0 

0.0 

0.0 

0.0 0.0 

0.378006*04 


9 MATRI 

X* 







0.54017E+00 

0.0 

0.0 

-0.26B76E+00 

0.0 

0.0 

0.695746-11 

0.450436-01 -0,179486-07 

-0.132426*02 

0.0 

0.37 0426 * 00 

0.200006*01 

0.0 

-0.4 116 76*00 

0.0 

-C. 530786-02 

0.258596*00 0.159706*00 

0,0 

0.0 

-O.2C00OE+OI 

0.370426+00 

0.0 

0.0 

-0.411676*00 

0.775366-01 

0.431566-01 -0.942106*00 

0.0 

-0.19099E*00 

0.0 

0.0 

0.436426*00 

0.0 

0.0 

0.172336-11 

0.111576-01 -0.444576-08 

-0.230076+00 

0.0 

-0.346036*03 

0.0 

O.G 

0,394836*00 

0.20inOE*01 

0.495676-02 

-0,143256-01 -0.149146*00 

0.0 

0.0 

0.0 

-0.346036*00 

0.0 

-0.200006*01 

0.394836*00 

-0.456886-01 

-0.403026-01 0.387526-Cl 

0.0 

0.22S44E-10 

-0. 79814E-02 

0.252246-Cl 

-0.21837E-12 

0.886436-02 

-0.668466-01 

0.329976-01 

0.673996-02 -0. 186026-01 

-0.715426-09 

0.145956+00 

-0.331286*00 

C. 6 48 946- 01 

-0. 141376-02 

-0.326596-01 

-0.720736-01 

0. 855436-02 

0.285526-01 0.225206-02 

-0.463176+01 

-0.5B157E-07 

0.240156 *00 

0.12474E+01 

0.5633 36-09 

-0.266716*00 

0.100466*00 

-0. 189446-01 

0.212096-02 0.128546*00 

0,184566-05 

-0.33 172 E+02 

0.0 

0.0 

-0.332806*01 

0.0 

0.0 

-0.688596-09 

-0.445806*01 0,177646-05 

0.11459E+04 


G MATRIX* 


0.3A6T3E*-0l 

0.0 

O.D 

0.0 

n.o 

c.o 

0.0 

j.O 

c.o 

D.O 


0.0 

-0,IA993L»00 

-0.37Q«E<-00 

0.0 

0. 17862E*00 
0,3V6G3E*00 
-0.65A34E-01 
-0.95611E-01 
-0.374B6E-01 
0.0 


0.0 

0.37042E»00 

-C.l-i993E+00 

0.0 

-0.3A^^6C3E»00 
0, 17962E+00 
0.36719E-01 
-0.43438E-02 
0.3321<.E+0C 
0.0 


0.0 

0.0 

0.0 

0.162S6E«^02 

0.0 

C.O 

0.0 

0.0 

0.0 

0.0 


0.0 

-0.5T593E-01 

O.A1167E»00 

0.0 

9.B5A59E»00 
-l). 39A83E+00 
9.67322E-01 
3.62958E-01 
-O.UA80E*00 
0.0 


0.0 

-0.4ll87E*00 

-0.975936-01 

0.0 

0.39593EO0 

O.B5^5BE*^00 

0.22616E-01 

-').36S32E-0l 

-o. 22 aise*oo 

0.0 


0.0 

0.21A93E-10 

-0,ABA26E-D2 

0.0 

-0.2064AE-10 
0.4651^6-02 
0. 1168 BF 400 
-0.825836-03 
0.14950E-02 
0.0 


0.0 

-0.39374E-01 

-0.9698TE-11 

0.0 

0,379206-01 

0.9315BE-11 

0.85114E-03 

0.330976*00 

-0.25609E-01 

0.0 


0.0 

-0.554956-07 

0.145716*00 

0.0 

0.533046-07 
-0.139956*00 
0. 109696*90 
0.24848E-01 
0.ll399F*0l 
0.0 


0.0 

O.G 

O.Q 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 
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0 MATRIX* 


0.0 

C.O 

-0.11231E+02 

C.24135E*02 

9.0 

0.0 

0.0 

0.11374EO2 

0.0 

0.0 

9.236 70E*02 

0.0 

-0.11374E4-02 

0.0 

0.0 

0.0 

9.0 

O.ZSOTOEtOZ 

0.0 

0.0 

-0.27ei9E*0l 

0.37430E«'01 

9.0 

0.0 

0.0 

-0. 10925E4^02 

0.0 

0.0 

-0.23117E«02 

0.0 

0 . 10925 E*0Z 

0.0 

0.0 

0.0 

9.0 

-0.2311764^02 

-0. 10349 E*02 

-0.24586E4-00 

0.30lt6E«00 

0.14e24E-06 

•9.51082E«00 

-0.57982E401 

-0. 2204TE<-01 

0.16226E4^01 

-0.45530E*01 

0.95973E«01 

0.25721EO1 

0.41534E4-01 

0.29504E4-01 

0.73975E+0I 

0.37122E»00 

-0.38242E-05 

9. 1537QE4-02 

-0.11503E4-02 

0.0 

0.0 

0.15B79E«04 

-0.23930E*04 

0.0 

0.0 



FREQUENCV RESPONSE 


*•$* ««***« ***^4i*«»**ilt«««**»***»*****«*«* 


FREQUENCY /OMEGA 


013 

QIC 

QIS 

Q20 

Q2C 

Q2S 

WING 1 

WING 2 

WING 3 

OtNU Rl/DT 









0.01~- 

0, 188E-06 
0. 959E-05 

G.772E*C0 

0.309E400 

0. 5996-07 

0.976E-01 

0.2936-01 

0.1626400 

0.5186-03 

0.5276-02 

0.02— 

Q.473E-06 

0.196E-04 

0.77164^00 

0.3096400 

0.1196-06 

0.9866-01 

0. 9806-01 

0.1626400 

0.5316-03 

0.5896-02 

0.03— 

0.921E-06 

U.306E-09 

0.769E400 

0.3056400 

0. 180E-06 

0.5056-01 

0.7196-01 

0.1696400 

C. 5536-03 

0.6676-02 

G.09— 

0.159E-05 

0.429E-09 

0.766E400 

0. 307E400 

0.2596-06 

0.5396-01 

0.9576-Dl 

0.1656400 

0.5896-03 

0.7676-02 

0.05— 

U. 2SZE-05 
0.570E-04 

0.762E400 

0.3086400 

0.3556-06 

0.5766-01 

0.1206400 

0.1676400 

0.6236-03 

0.8786-02 

0. 06 — 

P.3796-05 

0.7586 400 

0.3116400 

0. 9736-06 

0.6336-01 

0.1956400 

0.1706400 

0.6706-03 

0.9996-02 


0.732E"04 


213 


O.OT— 


0.548E-05 

0.920E-04 

0.753E400 

0.314E'00 

0.619E-06 

0.708E>01 

0. 17DE«^00 

0.173E4-00 

0.726E-03 

o.iiie-01 

0.08— 

0. 766E-0S 
0.114E-03 

0.746E4-00 

0.317E400 

0.79BE~06 

0.802E-01 

8.195E«0D 

0.177E400 

0.790E-03 

0. 123E-01 

0.09— 

U.194E-04 
0. 139E-03 

0.739E*C0 

0.32LE4-00 

0. lOZE-OS 

0.918E-01 

0.220E400 

0.181E400 

0.862E-03 

0.135E-01 

0. 10— 

0.14UE-34 

0.16TE-03 

0.73tE«00 

0.326E400 

0. 129E-05 

0.106E400 

0.246E400 

0.186E400 

0.944E-03 

0.147E>01 

0. 12— 
0.Z37E-09 
0.237E-03 

0.7 lOE 4^00 

C.338E400 

0. 203E-05 

0. 140E400 

0.300E4-00 

0.19BE*00 

0.114E-02 

0.170F-01 

0. 14— 

Q.384E-04 

3.329E-03 

0.683E400 

0.3S4E400 

0.312E-05 

0.I86E*00 

0.356E400 

D.213E400 

0.138E>02 

0.192E-01 

0. 16— 

0.602E-04 

0.652E400 

O.3 73E4-Q0 

0. 474E-0S 

0.243E400 

0.414E4-00 

0.231E*00 

0.169E-02 

0.212E-01 


0.449E-0 3 
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0. IB — 


0.921E-04 

0.608E-03 

C.610E*00 

0.396E«>00 

0.7t3E-05 

0.312E*u0 

0.9T3E«0C 

0.2S3E900 

0.208E-02 

0.229E-01 

0.20— 

0. 139E-03 
0.820E-03 

0.22— 

O.SSBEOO 

0.920EHO 

0. 107E-09 

0. 39tE«00 

0.539E4>00 

0.278E«00 

0.2S9E-02 

9.292E-01 

0. 206E-03 
0.110E>02 

0.995E«00 

0.999E*00 

0. 158E-09 

0.976E*bt> 

0.ST9E900 

b.309E»00 

0.325E>02 

0.253E-01 

0 . 29— 

U.3D2E-Q3 
0. 146E>02 

0.925E*00 

0.962€900 

0.232E-09 

0.S62E«00 

0.6tTE900 

0.398E»00 

9.90TE-02 

0.259E-01 

0. 26 — 

0.9376-03 

J.199E-02 

C;.355E»C0 

0.975E+00 

0.338E-09 

0.699E»00 

0.692E900 

0.901E900 

0.512E-02 

0.263E-01 

0 . 28— 

0.633E-03 

Q.25BE-02 

0.292E*00 

0.989E+00 

0.999E-09 

0.729E900 

0.662E»00 

0.989E900 

8.6StE-C2 

0.269E-01 

0.30 — 

0.999E-03 

0.3S5E-CI2 

0.239E-I-00 

O.:»O0E«-UO 

0.795E-09 

0.822E«^00 

a.699E900 

n.635E*oa 

9.861E-02 

0.292E-01 

C. 32— 

J.159E-02 

0.l83F*rn 

0.890E900 

0.123E-03 

0.987E*^00 

O.T89E900 

O.96TE90O 

0.12SE-01 

0.292F-01 


0. 536E-02 
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0 . 3 ^ 


0.268E-02 

0.B69E-02 

0.209E«00 

0.569E600 

0.216E-03 

0.120E60I 

0.932E600 

0.169E601 

0.197E-01 

0.105E-01 

0.36 — 

0. 185E-02 
0.560E-02 

0.37SE600 

0.209E600 

0.15 lE-03 

0.526E4-00 

0.638E600 

0.130E601 

0.123E-01 

0.229E-01 

0.3S — 

0. 777E-03 
0.220E-02 

0.360E4-00 

0. 160E>00 

0.663E-06 

0.161E4-00 

D.158E600 

0.703E600 

U.671E-02 

0.306E-01 

0.60 — 

0.310E-03 
0. 825E-G3 

0.366E«-CO 

0.169E^00 

0. 260E-06 

0.185E600 

0.llbE600 

0.657E600 

0.172E-02 

0.332E-01 

0. 65— 

0.795E-33 

0.182E-02 

0.331E4-G0 

C. L90E4'00 

0.6B6E-06 

0.26 IE 600 

0.U6E600 

0.236E600 

0.359E-02 

0.377E-01 

0.50— 

0.210E-02 

0.617E-02 

0.323E*00 

0. 190E*00 

0. 185E-03 

0.273E600 

0.i07E*00 

0^1S3E60Ci 

0.7B5E-02 

0.630E-01 

0. 55— 

0.569E-02 

0.990E-02 

C.318E600 

0.191E*00 

O.SllE-03 

0.269E600 

0.103E600 

0.113E600 

O.l 79E-01 

0.526E-01 

(1.60 — 

j, 366F-t. 1 

t.237E+00 

C. 167E«-O0 

0,316E-02 

0.2UE600 

0.197E60C 

0.919E-01 

0.923»=-0l 

O.967F-01 


52 3E -Cl 
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0. 65 — 


O.IUE-Ol 

0.1566-01 

0.268E»00 

0.138E400 

0. lOSE-02 

0.2626400 

0.7816-01 

0.6736-01 

0.2626-01 

0.252E-01 

0 . 70— 

0. 7076-02 
0.865E-02 

0.276E400 

0.152E400 

0.6586-03 

0.239E«-00 

0. 6966-01 

0*5666-01 

0.1606-01 

0.3906-01 

0.75— 

0.5866-02 

0.645E-02 

0.2736AO0 

0.155E 400 

0. 5686-03 

0.234EA00 

9.6876-01 

0.4836-01 

0. 1016-01 

0.666E-01 

0,80 — 

O.5A8E-02 

0.5A5E-02 

0.27tE*00 

0. 1586400 

0.512E-03 

0.229E4Q0 

0.7066-01 

0.6186-01 

0.8256-02 

0.5366-01 

G* 85— 

U. 5506-02 
0,4966-02 

0.2706400 

0.1616400 

0.Sl3E-03 

0.2266400 

0.7366-01 

0.3676-01 

0.7266-02 

0.6136-01 

C.90 — 

0.580E-02 

J.477E-02 

0.2716400 

0.165E400 

0. 5376-03 

0.2256400 

0. 7B1E-01 

0.3266-01 

0.6706-02 

0.706E-01 

0.95 — 

0.6396-02 

U.275E400 

C.170E400 

0.5856-03 

0.226E400 

0.840E-01 

0.293E-C1 

0,669E-O» 

0. 8266-01 


0.A80E-O2 
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l.OD 


0.733E-02 
0.50 5E-02 

0.282E»00 

0.178E400 

0.663E-03 

D.231E400 

0.915E-01 

0.266E-01 

0.6S6E-O2 

0.989E-01 

1. 10~ 
O.113E-01 
0.662E-O2 

0.324E>00 

0.203E400 

0.990E-03 

0.260E4-00 

0.116E400 

0.230E-01 

0.785E-02 

0.160E400 

1.20— 

O.2S6E-01 

0.133E-01 

0.51QE1-00 

0.273E400 

0.222E-02 

0.383E400 

0.187E400 

0.221E-01 

0.l«3E-0l 

0.385E400 

1.3Q— 

0, 360F-CI 
0.157E-01 

0.500E«'00 

0.47SE-01 

0.286E-02 

0.225E400 

O.llOEf-OO 

0.785E-02 

0.150E-01 

0.529E400 

1.^0 — 

').131E-01 
0, 5G0E-02 

0.243E«-00 

0. 122E400 

0. 987E-03 

0.238E-01 

0.298E-01 

0.981 E-02 

0.917E-02 

0.195E400 

1, 50— 

0.7B3E-G2 

O.263E-02 

0.241E+00 

0.17SE400 

0. 557E-03 

0.722E<>01 

0.59 IE -01 

0.9^7E-02 

0.189E-02 

0.119E400 

1 . 60 — 
0.546E-02 
u. 162E-02 

0.2 7 IE 4^00 

0. 229E400 

0. 372E-03 

0.937E-01 

0.808E-01 

0.866E-02 

0.997E-03 

0.875E-01 

l.7ii — 

u.4llf:-02 

318E+00 

0.291E40C 

0.276E-03 

O.lO^EfOO 

J.9S4E-01 

0.773E-02 

3.585E-03 

f'.692E-01 


0.1G9F-02 
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1.80- 


0.383E-02 

0.907E-C3 

0.3BIE+00 

0.369E1-00 

0. 266E-03 

0.103E4^00 

O.llOE^OO 

0.661 E-02 

9.463E-03 

0.540E-01 

1.90— 

0.429E-02 

0.9t3E-03 

0.430E+00 

O.430E4>OO 

0.325E-03 

0.742E-01 

0.100E400 

0.525E-02 

0.584E-03 

0.342E-01 

i.OO— 

0.333E-02 

0.690E-03 

0.400EH>0 

0.425E«00 

0.289E-03 

0.921E-02 

0.551E-01 

0.457E-02 

0.422'T-03 

0.T92E-O2 

2.10— 

D, 116E-02 
0.202E-03 

0.310E+00 

0.341E+00 

0.119E-03 

0.670E-01 

0 .453E-01 

0.511E-02 

0.16SE-03 

O.148E-01 

2.20— 

C.l28E-ti2 

0.20U-l)3 

0.225E»00 

0.254E400 

0. 156E-03 

0.141E«-00 

0.115E»00 

0.591E-02 

0.204E-03 

0.314E-01 

2. 30— 
U.3VDE-a2 
0.985E-03 

0.156E+C0 

0.175E4-00 

0.499E-03 

0.226E»00 

0.2llE«-00 

0.67SE-02 

D.602E-03 

0.466E-01 

2.40— 

0. 529E-G2 

0.845E-01 

0.821E-01 

0.930E-03 

0-304E»00 

0.310E«00 

0.6B9E-02 

0.t02E-02 

0.571E-01 


0.684E-03 
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2.50— 


0.50 IE -02 
0.58TE-03 

0. 6086-01 

0.3896-01 

0. 1056-02 

0.2736«'00 

0. 2996 1-00 

0,6966-02 

0.1056-02 

0.6636-01 

2.60 — 

0.366E-02 
0, 3856-03 

0.6636-01 

0. 6666-01 

0.9136-03 

e. 19661-00 

0.22561-00 

0.3086-02 

0.8116-03 

0.3056-01 

2. 70— 
0.2626-02 
U. 2696-03 

0.6706-01 

0.6966-01 

0.7816-03 

0.13961-00 

0.1706^00 

0.2196-02 

0.6176-03 

Cl. 2006-01 

2.80— 

0. 1966-02 
U. 1676-03 

0.6366-01 

0.6676-01 

0.6966-03 

0.10561-00 

0.13661-OC 

0. 1826-02 

0.6856-03 

0.1386-01 

2.90— 

0. 1536-02 
0. 1156-03 

0. 3926-01 

0.619F-01 

0.6606-03 

0.8206-01 

O.llOE^OC 

0.1666-02 

0. 3936-03 

D.992F-02 

3.00 — 

1). 1226-02 
0.7966-06 

0.3506-01 

0.5686-01 

0.6086-03 

0.6626-01 

0.9236-01 

3.1566-02 

0.3266-03 

0.7376-02 

3.50— 

0.5396-03 

0.2016-01 

0*3 756-01 

0.6766-03 

0.2986-01 

0.6956-01 

0.1236-02 

0.1566-03 

0.2196-02 


0.758E-fi5 
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4.00- 


Q.420E-03 

0.646E-U4 

0.125E-01 

0.265E-01 

0.135E-02 

0.169E-01 

0.324E-01 

0.993E-0S 

0.999E-04 

0.798E-03 

4.50— 

0. 227E-03 
0. 33 lE-04 

0.640E-02 

0.199E-01 

0.492E-03 

0.107E-01 

0.234E-01 

0.80TE-03 

0.745E-d4 

0.319F-03 

5.00 — 

0.l4!)E-03 

0.155E-04 

0.592E-02 

0. 155E-01 

0. 203E-03 

0.733E-02 

0.178E-0l 

0.665E-03 

0.503E-04 

0.I74E-03 

5. 50— 

0.979E-C4 

0.‘J2aE-06 

0.435E-C2 

0.125E-01 

0. 113E-03 

0.526E-02 

0.141E-01 

0.556E-0S 

3.366E-04 

0.156E-03 

5.00— 

0. 727E-04 
0.526E-05 

0.329E-02 

0.103E-01 

0. 731E-04 

0.392E-02 

0.115E-01 

0.471E-0S 

0.278f-04 

0.159E-03 

6.50— 

0. 56 IE -04 
0.456E-O5 

0.256E-02 

0.851E-02 

0. 513E-04 

0.301 E-0 2 

0.959E-ti2 

0.404E-Ci3 

0«2iaEo04 

0.1S9E-03 

7.00 — 

». 446E-04 

0,203E-02 

0. 734E-02 

0.380E-04 

0.236E-02 

0.812E-02 

0.393E-03 

0.17frE-04 

0.152E-03 


0. 3SuE -05 
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7. 50-- 


0, 362E-04 
0.279E-05 

0.164E-02 

0.6336-02 

0.2946-04 

0.1896-02 

0.6986-02 

0. 3066-03 

0.1446-04 

0.1446-03 

8.00— 

0.300E-04 

0.230E-05 

0.134E-02 

0,5526-02 

0. 234^04 

0.1546-02 

0.6066-02 

0.2696-03 

0.1216-04 

0.1356-03 

8.50— 

0. 252E“0<V 
0.194E-05 

0. 112E-02 

0.485 E-G2 

0.1916-04 

0. 1276-02 

0.5326-02 

0.2396-03 

0.1026-04 

0,1256-03 

9.00 — 

3. 215E-U4 
0. 167E-05 

0.938E-03 

0.431E-02 

0. 159E-04 

0.1066-02 

0. 4716-02 

0.2146-03 

0.8766-05 

0.1166-03 

9. 50— 

O.106E-O4 

0.146E-G5 

0.7966-03 

0.3856-02 

0. 1346-04 

0.B95E-03 

0.4206-02 

0.1926-03 

0.759E-05 

0.1076-03 

10.00— 

0. 162E-04 

0.662E-03 

0.345E-02 

0.1156-04 

0.7636-03 

0.3776-02 

0,1746-03 

0.6646-05 

0.9926-04 


0.1WE->C5 
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EIGENVALUES 




«* REAL PART 

♦4 IMAGINARY PART *** 

** DAMPING RATIO 

NO. 

1 

0.0 

0.0 

0.0 

N3. 

2 

-0.209224 3D «^00 

0.40712660*01 

0.5132288E-01 

NO. 

2 

-0.2092243Di-00 

-0.40712660*01 

0.51 322 88E-01 

NO. 

3 

-0.14810560 OO 

0.24216390*01 

0.6 1040 13E-01 

NO. 

3 

-0.1481056D«00 

-0.24218390*01 

0.6104013E-01 

NO. 

4 

-0,2021002D*00 

0.19456240*01 

0. 10331 83E*00 

NO. 

4 

-0.20210020*00 

-0.19456240*01 

0. 10331 83e*00 

NO. 

5 

-0.26321030*00 

0.18751470*01 

0. 13900 50E *00 

NO. 

5 

-0.26321030*00 

-0,18751470*01 

0.1390050E*00 

NO. 

6 

-0.3342787D-01 

0.12607770*01 

0.2650439E-01 

NO. 

6 

-0. 334278 7D-01 

-0.12607770*01 

0.2650439E-01 

NO. 

7 

-n. 11 445920-01 

0.60419550*00 

0.1B94066E-01 

NO. 

7 

-0.11445920-01 

-0.6041 9550*00 

0. 18940 66E-01 

NO. 

8 

-G. 15375690-01 

0.34593820*00 

0. 44402 52E-01 

NO. 

a 

-0.15375690-01 

-0.34593820*00 

0. 44402 52E-01 

NO. 

9 

-0.1094665D *00 

0.24521220*00 

0.407640SE*00 

NO. 

9 

-0.10946650*00 

-0.24521220*00 

0.4076408E*00 

NO. 

10 

-0.28209820*00 

0.4124979D-01 

0.9894778E*00 

NO. 

10 

-0.28209820*00 

-0.41249790-01 

0.98947 78 E *00 

NJ. 

11 

-0,31790210*00 

0.0 

0.1000000E*Ot 
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^m**i**** ♦* 


EIGENVECTORS 

4i4c)|if *4i** ****** 


- CORRESPONDING TO NO. I EIGENVALUE 


0.0 


(♦INAGI 0.0 I 


•* ABSOLUTE VALUE •* 


♦♦ REAL PART •• *♦ INAGINARV PART •• 


0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.C 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.t0000O0E«-01 

0.1000000E»01 

0.0 


-- CORRESPONDING TO NO. 2 EIGENVALUE — (>0.20QO>00l»IMAC( 0.A0TD«'01» 


ABSOLUTE VALUE 


** REAL PART •* ** IMAGINARY PART *• 


O.llOTOfc^E^OO 
O.AA01162E-02 
0.3052CA7E-01 
0.100CC00E«^0L 
0.2562390E-01 
|3.105141BE>01 
0. 10732 38E-03 
0.1779A19E-01 
0.5262852E-02 
0.l3eC952E-0l 


0.59609e7E''01 
0.49B3202E-03 
0.3021199E-01 
O.lOOOOOOEf^Ol 
-0.2SAB093E-01 
0.212i001E~02 
0.3A53433E>0A 
•0.1765273E-01 
0. 1084798E-02 
0. 126662 lE-01 


-0.9328T53E-01 
-0.4372858E-02 
-0. 43282 73E-02 
0.0 

0.2702991E-0Z 
0.1029B02E-C1 
0.10161S8E-03 
0.2 23920 lE-02 
0.S149834E-02 
-0.5501822E-02 
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corresponding TQ 3 EIGENVALUE — <-0.l48D»00l»IHA6« 0.242D«'01I 


♦>* ABSOLUTE VALUE ♦* 


REAL PART ♦♦ •* IMAGINARY PART •• 


0.18L3177E-01 
0. 4931 911 E«^UC 
0. 33201 S9E 4-00 
0.3046985E-‘02 
0. 92301 96E>00 
O.IOOOOOOE^OI 
0.1226842E-01 
0.335596TE-02 
0. 16544 89E1-00 
0.968S631E-0? 


0.5256832E>02 
0.4925372E*00 
-0.23983S8E>01 
0.52881 71 E>03 
0.5510997E-02 
O.lOOOOOOE^Ol 
ti.l2242S2E-01 
-0.1360433E-03 
-0.1650685E«00 
-0.8815918E-03 


>0.173S301E>01 

•0.3539496E-01 

-0.3311487E»00 

0.3000749E-02 

0.9230042E400 

0.0 

-0.7968692E-03 

0.33S3212E-02 

0.1121332E-01 

-0.4011374E>03 


“ CORRESPONDING TO NO. 4 EIGENVALUE — t-0.202000l«-INAG| 0.19S0«-0n 


t* ABSOLUTE VALUE •* 


♦♦ REAL PART ** •* IMAGINARY PART 


0.258291BE-01 
0. 10000 OOEf^Ol 
0.9137043E+00 
0. 1247240 E-02 
0.3 1606 64E«^00 
3.3624439F+00 
0.4554648E-02 
a.l54663tE-02 
0. 10530 16E»00 
0.2736067E-02 


0.2S39718E-01 
0.1000000E»01 
-0.5365834E-01 
-0.8799934E-03 
•0. 20040 18E»00 
0.281645SE»00 
0.4206777E-02 
-0. 1443410EH)2 
-0.9349859E-01 
0.7346331E-03 


0.4704274E-02 

0.0 

«0.9121275E400 
0.8838666E-03 
0.2444144E400 
0.228 126 2E«>00 
0.174SB08E-02 
0.555SS02E-03 
•0.4644000EO01 
*0.2635599E>02 
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— CDRR6SPQND1NG TO NC , 


*• ABSOLUTE VALUE 


0. 1000000E4>01 
0.9817582E-01 
0. 5672661E>01 
0.3115343E-^0l 
0.1 8480 55E-01 
0,5520776E-01 
0.6100570E->03 
0. 2630625E>01 
0. 45613 91E-01 
U.1181S44E>00 


— CORRESPONDING To NO, 


*• ABSOLUTE VALUE 


0,5 2192 37E-01 
a,1000000E«-01 
0,30721 07E4-00 
0,4l24t53E-02 
0, 50340 T0E«^00 
0*2649921E4-00 
0.1 2007 9QE*01 
0. 23554 82E-01 
0> 76856 37EfrOO 
0, 1921409E-01 


5 EIGENVALUE (-0.2630«00>»INAG{ O.lSBO^Ol) 




** REAL PART *♦ IMAGINARY PART •* 


0.1000000E«01 
>0.7606643E*01 
0.2192894E-01 
-0.1 4899 75E-01 
O.L686821E-01 
0. 1644658E-02 
0.7883347E-04 
-0.2571483E-01 
0. 2269105E-01 
-0, 881994 lE-03 


0*0 

-0.6206755E-01 
0,523166SE-0t 
0.2735936E-01 
0.7549502E-02 
-0.5519328E-01 
-0.6049422E-03 
0.554683 IE-02 
0.3979991E-01 
-0.1181511E-»00 


6 eigenvalue — (-0.3340-Oll^lMAGI 0.12604'01) 


A* 


*■»' REAL PART ** *♦ IMAGINARY PART *♦ 


-0.4088937E-01 
0. IOOOOOOE4-01 
0.1 5485 36EA00 
-0.1214229E-02 
-C.2209B83EA00 
-0.9316647F-01 
-0.971 85 15E-02 
-0. 94640 18E-02 
-0.7237886EA00 
-0. 1733962E-01 


-0. 32436 IBE-01 
0.0 

-0.2653276E«-00 
-0.3941 245 E- 02 
-0.4523084EAOO 
0.248O742EAOO 
0.7052649E-02 
-0.2156994E-01 
0. 2584966 E«00 
0.8277591E-02 
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— CORRESPONDING TO NO. 7 EIGENVALUE — (-0.1 IAD-01I«^IMAGI O.60AO«-OOl 


ABSOLUTE VALUE *• 


** REAL PART ** ** IMAGINARY PART ** 


0.1899540E4-00 
0.7 1860 74E»00 
O.lOOOOOOEAOl 
0.172T831E‘-01 
0.35312 73E«00 
0.62294 IBE 4-00 
0. 53323 5BE-01 
0.5013C81E»00 
0.3995003E4JO 
C.4824777E400 


-0.9512359E-01 
-0. 14146 95E400 
0.1000000E401 
-0. 12S6B43E-0I 
0.1046424E400 
-0.2424563E400 
-0.2112SB3E-01 
-0. 39562 70E«00 
-0. 2640249E400 
0.1262509E400 


0.1644202E400 

0.704S444E«00 

0.0 

0.ll8564lE-0t 

-0.337266TE400 

-0.S738217E4-00 

-0.4896023E-OI 

0.30787t3E400 

-0.2998188E«00 

0.46S6667E«00 


— GDRR ESP3N0 ING TO NO. 8 EIGENVALUE — (-0.1 54D-01 »4l HAG ( 0.34604-001 


♦ ABSOLUTE VALUE ** 


P4t real part ** IMAGINARY PART 


0.18C 04 456-02 
0.2911242E400 
0.4352518E40C 
0.1424049E-03 
0.04512666400 
0.6 4621 39E 400 
0. 1 0000 OOE 401 
0.1269024E-01 
0.2067884E-01 
0. 16753 73E-01 


0, 6788953E-03 
0.2366872E400 

0.41 94663E 400 

0.4478541E-04 
0.5476120E400 
0.1 6073 76E 400 
0. 1000000E401 
O. 14B6531E-02 
-0.9552T81E-02 
0.1418500E-01 


0.1667545E-02 
O.S063349E-01 
-0.1161560E400 
0.1351T93E-03 
-0. 64370 T6E400 
0.6259041E400 
0.0 

0.1260288E-0t 

0.1834010E-01 

0.8914784E-02 
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— corresponding to no. 9 EIGENVALUE 


(-0*l09O»00UtNAGI 0.2ASDt00l 


ABSOLUTE VALUE 


** REAL PART •• IMAGINARY PART »* 


0.243A947E-03 
D.5692835E4-00 
0.525898tE*00 
0.1357527E-04 
0.95523 89E 4-00 
0.1000000E4-01 
0.8736736E-01 
D.2355762E-02 
0.8463684E'02 
0.44026B2E-02 


0.8291703E-04 
-0. 54464 92E400 
0. 9681088E-01 
0.4603972E-05 
-0.1093B01E-01 
0.1000000E4-01 
-0. 87151 llE-Ol 
0. 1651092E-02 
0.7221349E-02 
0.4384559E-02 


0.22894I9E-03 

-0.1656526E400 

-0.5169105E+00 

0.12770728-04 

-0.9551762E400 

0.0 

0.6141S96E-02 

0.1680330E-02 

-0.4414298E-02 

-0.3990191E-03 


— CORRESPONDING TO NO.lO EIGENVALUE — (-0.282D>00»*IMAGC 0.412D-OU 


ABSOLUTE VALUE ** 


♦♦ REAL PART ♦♦ ♦* IMAGINARY PART •* 


0. 24363 94E-02 
0.1 0000 OOE401 
0.9246252E400 
0.1798500E-04 
0. 67851 36E*00 
0,47971 39E*00 
0.4522312E-01 
0.5225779E-02 
0.3273904E-01 
0.5858627E-01 


-0. 2435637E-02 
O.IOOOOOOE401 
-0. 2S59280E400 
-0.9399982E-05 
-0.5765943E400 
-0.2741120E4C0 
0.4180256E-01 
0.2554759E-02 
-0.2485351E-01 
n.5792243E-01 


0.60743S2E-04 

0.0 

-0.8885002E«^00 

-0.1533299E-04 

-0.3576586E400 

0.3936852E400 

0.1725332E-01 

0.4558720E-02 

0.213107SE-01 

0.8794S24E-02 



CORRESPONDING TO NO. 11 EIGENVALUE 


f>0.31SD«^00l4-IHAG( 0.0 


I 


** ABSOLUTE value ** 

•* REAL PART 

•• INAGINARV PART •• 

0.A6A1774E-01 

-0.4641774E-01 

• 

0.0 

0.106282AE«00 

0.1062824E400 

0.0 

0.&78977AE-01 

0.5T89T74E-01 

0.0 

0.2 153117E-C3 

0. 21531 17E»03 

0.0 

0.3I57100E-01 

'0.3157100E'01 

0.0 

0.727 1057E-01 

-0,727105TE-01 

0.0 

0.30A8246E-02 

0.304B24AE-02 

0.0 

0.6654162E-02 

>0.665A162E-02 

0.0 

0.2990245E-02 

-0. 299024SE>02 

0.0 

0>1000000E4D1 

0.1000000E«01 

0.0 



